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Event Logging Transmitter 1b-5e sen- 138+ 91:33:36 


AX-11 ss-32 V 
14-Sep-1 IS 


DISKSUMSMASTER: EV. SRCSEVLTRANS.B32;1°" ( 
’ a 
RODULE EVLYRANS CIBENT = *VOc-008") = 


' 
. 
ESSE TI STIS T TTT TTT TTT TTT TT rir rir ri rir it ii iit iii ii ii itiiiitiiiii 


ie COPYRIGHT (c) 1978, 1980, 1982, 1984 BY 
ie DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. 
ie ALL RIGHTS RESERVED. 


ie THIS SOFTWARE IS cyl eee UNDER A LICENSE AND MAY BE USED AND coptee 
Y IN ACCORDANCE WITH THE TERMS OF ough LICENSE AND WITH THE 
ach WARE OR ANY HER 


T ; 0 oT 
ES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY 
HER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY 


® 
® 
® 
® 
® 
® 
® 
® 
® 
® 
ie TRANSFERRED. « 
® 
+ 
w 
® 
we 
® 
® 
® 
® 


nn at et 


NOME WN OOO NOAUE WI 0 ODNAMNE WN OOOO EWN POOR NONE WN MOORNOU RWIS 


:® THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE 
- pont itn NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT 


!* DIGITAL ASSUMES NO RESPONSIB 


IBILIT 
'w SOFTWARE ON EQUIPMENT WHICH IS 


Y FOR THE USE OR RELIABILITY OF ITS 
NOT SUPPLIED BY DIGITAL. 
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FACILITY: DECnet Event Logging (EVL) 
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; ABSTRACT: 
i This module contains the routines and data which control 
: the filtering and transmission of events to sinks on the local 
or remote nodes. 
3 ENVIRONMENT: VAX/VMS Operating System 
4 AUTHOR: Darrell Duffy , CREATION DATE: 13-June-1980 
‘ MODIFIED BY: 
4 i v004 § TMHO004 Tim Halvorsen 20-Jul-1983 
4 : Pass our version number to remote event receiver 
2 in connect data. 
4 ! v003 TMHOOOS Tim Halvorsen ce-Noye 1982 
: or qe to the List of entities which are 
identified before the actual parameters. 
‘ vo002 MHO002 Tim Halvorsen 01-Nov-1982 
! had *module’’ to the List of entities which 
are identified before the actual parameters. 
! v001 TMHOO001 Tim Halvorsen 03-Jun-1982 


vita Event Logging Transmitter a 8 
=3eb 71882 93:38: « ss- . 
en ee "oe ese cage te AE ETESE MEDAL Dicken tas ase 


<m 


Mu ergeen ihe 338:8o — WNbdwBAASFER Scere ShcSeverRans.e3204°° (25 


ZSBTTL ‘Definitions’ 
' 


| TABLE OF CONTENTS: 


FORWARD ROUTINE 


wr 


Be Se Se Ss Se Se Ge Ge Be Ge Se Se Ge Se Se Ge Ge Ge Fe Fe Ge Fe Se Ge Ge Gs Ge Se Se Ge Ge Se Se Se Se Se Se Se Se Ge Se Se Se Se Se Fe Se Se Se Se Se Se teas 


— at ot ot 
Suwn—o 


EVLSTRANSMIT : NOVALUE, ! Initialize event transmitter 
EVLSBLDFILTERS : NOVALUE, ! Build sink and filter database 
EVLSBLDSOURCES : NOVALUE, ' Build source block on sink block 
evias LOCSNK : NOVALUE, ' Allocate a sink blo 
EVLSDEALLOCSNK : NOVALUE, ' Deallocate a sink blo 
EVLSOBTAINEVTS : NOVALUE, ! Wait on events ettania from NETACP 
EVLSREADEVTS : OVAL US ' Read raw events from NETACP 
EVLSPROCESSEVTS : NOVALUE, ! Process raw event yin 
EVLSFILTEREVT : NOVALUE, ' Filter a single raw even 
EVLSFILTERSRC 6 ! Check filters with a cocaine source 
EVLSQUEVEVT : NOVALUE ! prenetate and queue an event to sink 
EVLSBLDLOSTEVENT : NOVALUE, ! Build and queue a lost event event 
EVLSNETERROR 86 ! Report an error in network io 

LSWRITE : NOVALUE, ! Write an event to sink 
EV SWRI TEDONE : NOVALUE, !' Complete io to sink 

LSOPEN : NOVALUE, ! Open a Link to sink node 
EVLSOPENDONE : eva ee ! Complete open of Link 
Braxte eraee NOVALUE, ' Close and pasereey , ae sink block 
EVLSALL ' Allocate a data bloc 
EVE SDEALLOCDBK : NOVALUE, i Deallocate a data Stock 


EVLSASTWORK : NOVALUE 


AST routine to queue work request 


09¢ i INCLUDE FILES: 
\) ! 
094 
95 LIBRARY *SYSSLIBRARY: :STARLET*; ! VMS common definitions 
4 LIBRARY ‘SH Ah od :N ' Network ACP interface 
0097 1 LIBRARY ‘LIB EVE TBRARY i EVL definitions 
2208 LIBRARY ‘LIBS:EVCDEF'; ! Event record definitions 
' 
6 8 i y Saute SYMBOLS: 
Og LITERAL 
0105 EVLSC_EVTMBXSIZE = 64 ! Size of event mailbox 
i EVLSC “EVIBFRSIZE = 512 = ASPSC_SIZE i Size of event buffer 


BIND 
EVL$Q time ay 
UPLIT (-1 0#10*1000#1000, - 


! Delay before closing Link 
! to event receiver 


ek me a ed a etd ed — — - d t  —  — — — 4 2 FS SS SS 
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t Logging Transmitter 


iSseoctoge 01:35:56 yanctt ats 


1 
OWN STCRAGE: 


GLOBAL 


eVLSGO.. pa Head of sink node List 


NITIAL ieve So sh s) 


Sates Tt aes iis AD), 
EVL$GT_LOCALNODE ECTOR C10, BYTE ' Buffer for local node info 
EVL$GB_LOCALNO : Br! i Length of data in buffer 
EVL$ca- ASPHEAD VECTOR (2) ! Head of ASP queue 
INITIAL (EVLSG0 +h td EVL$GQ_ASPHEAD), 
EVLSGB_ TRANSDONE —: BYTE INITIAL(TRUE) ~! True for transmitter done 


! Network channel for events 


EVLSW_NETEVTCHAN : WORD, 
: WORD !' Mailbox channel for events 


EVLSW_ -MBXEVTCHAN 


2 YA Oe 
SRCTEVLTRANS B32 awa. 


33 
3) 


9 
vent ing Transmitter 1b-se -1984 01:35: VAX=-11 Bliss-32 V4.0-74 P 5 
etinitions = eager Bee Oba ee NANA WCAASTERSCEUC SRCTEVLTRANS.B320%%" (43 


SE 


EXTERNAL REFERENCES: 


EXTERNAL LITERAL 


ZSSOLEREG 


! Error assigning to NET 


VLS _NETASN. ' 
VLS_OBTEVT, ! Error obtaining raw events 

VLS_RAWFMT, ! Invalid format for raw event 
EVLS_WRTEVT, ' Error writing events to sink node 

EV SOON SNK « ! areee openin ; nk node Link 
EVLS_NETDAS, ! Error deassigning NET channel 
EVLS_INSFVM, ! Unable to obtain virtual memory 
EVLS_EVTSIZ, ! Invalid size of event 

EVLS$_WKQERR ! Error returned from work queue routines 
EVL$_LOGDBUT, | Log of data base updates by transmitter 
EVLS$_LOGOPNT, nks by transmitter 


: oe of open | 
! Network is shutting down 


NEA Fu OO NOEL ODS ae 


EVLSGL_LOGMASK : BBLOCK ! Log control mask 


EXTERNAL ROUTINE 


EVLSJULIAN : NOVALUE, 
WKOSADD_WORK_ITEM a. 
WKQSADD-TIMED. WORK ae 


PUPAE Be EE EE 


yA Re ay ttt ee A YS Se 


wn 


Convert time to julian 

Add element to work queue 
Add scheduled work to queue 
Cancel timed work ite 


WR 9 ODNAUES WO OONAL LW 


PAOD 


WKQSCANTEL_TIMED_WORK : , m 
64 EVLSQUEUVE_ EVENT ; NOVALUE, Queue event to local receiver 
65 EVLSNETSHOW - Show data from NETACP 
08 EVLSPRINTLOG : NOVALUE, Print message to Log 
6 EVLSINI TLGCALNODE : NOVALUE Initialize local node name 


SSS 


4 
Library routines 
EXTERNAL ROUTINE 


IBSGET_VM_ : ADDRESSING_MODE (GENERAL) 
IBSFREE_VM : ADDRESSING MODE (GENERALS 
IBSASN_QTH_MBX : ADDRESSING MODE (GENERAL) 


NOUS WI—O 


ce 


SEE 


L 
t 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
! 
: EXTERNAL 
1 
1 
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1 
1 
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1 
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ee ee a a aa a ae ed ed 8k a td ed od od dd dd od od = = = 


RESIAISHAACNI ASSESS 
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i ROUTINE VALUE: 
i COMPLETION CODES: 


i NONE 
i SIDE EFFECTS: 
i NONE 


TRANS v Logging Transmitter 18-5e $ep-1984 01:35: VAX-11 Biles -32 V 
=000 EVESTRANGAIT® Moin Taitialization eet) aR PRS ed Me Vt He og 
1 1 ZSBTTL ‘EVLSTRANSMIT Main Initialization’ 
} 5 ; GLOBAL ROUTINE EVLSTRANSMIT :NOVALUE = 
1 1 144 
! 8 : FUNCTIONAL DESCRIPTION: 
1 1 i Main initialization routine for event logg'rg transmitter. 
1 1 ! Calls the rout ines to 3S a the dane ane nere for the 
1 1 : transmitter and start the event Logging. After this rout ine 
1 1 ! returns to its caller, work queue elements are on the work queue 
; ; to continue the event logging. 
: FORMAL PARAMETERS: 
1 194 NONE 
IMPLICIT INPUTS: 
NONE 

IMPLICIT OUTPUTS: 

| NONE 

t 

] 

1 

4 

] 

1 

q 

’ 

' 

t 


BEGIN 
LOCAL 


STATUS, 
10SB - : VECTOR C23 
RBXMODES VECTOR C25 


oo 
AES Oe NOUS SOOO NONE WH OOD RAR WOO Dee 


PIII AAAALALALPINIPIPININPIPININ INDI a tn nt tt kk kt hd 
* . . ™ . - 


' Local statu 
' Ilosb for sinete qio 
! Enable mailbox modes 


vatueinaemente (); ! Initialize the local node name 


REUNLSSSSVRAR UN SOWNAAP WV BOOSIE ARM O Dao 


IF NOT 
( eras = LIBSASN_WTH_MBX ! Get some channels for use 
BASETD ! To network 
0, ZREF TEVLsc EVTMBXSIZE), ! Size of mailbox 
EVLSW_ NETEVTCHAN, ' Network channel 
FvL SW “MBXEVTCHAN ! Mailbox channel 
) 
THEN 


SIGNAL_STOP (EVLS_NETASN, 0, .STATUS) ! Stop right now 


owoew 


& 


 SRCSEVLTRANS. 832; Bae 


$$ 


EVLTRANS v j Ie ensal ter bse «1 VAX-11 Bliss-32 V4.0-74 P Evi 
yO%-000 EVE STRANGAIT®? Mote tattfotization eager 1 BRs Ph: SR ee LT eet ee ce Sev reans.esert” (56 vo 
3 4 

6 MBXMODES ! Enable all mod 

a HS amit FSi nie all sees 

i 34s B04 STATUS = $a10U ! Set mailbox modes 

: 26 P 024 EFN = eV $C_SYNCH_EFN, 

3; 26 P 024 CHAN = cyLSW NETEVTCHAN, 

: 26 P 0245 FUNC = SETMODE. 

; 250 P ug 10SB = OSB 

; P 4 P = =, 1088) 

; 4 : 

; ¢ EVLSNETERROR (EVLS_OBTEVT, .STATUS, I0SB); ! Analyse errors 

; 6 EVLSBLOFILTERS (); ! Build our filter database 

3 H i EVLSOBTAINEVTS (05 i Obtain the events and start processing 

: 9 5 END; 


TITLE EVLTRANS Event Logging Transmitter 
IDENT \v04-000\ 


-PSECT S$PLITS,NOWRT,NOEXE,2 
LONG +1200000000 
00 00 00 3A 54 45 4E SF 00008 P.AAC: .ASCII \ NET \< ota Re & 
10£0005 00010 P.AAB: LON 
0000000" 00014 OORESS. ate 
.PSECT SOWNS,NOEXE,2 
00000 EVLSW_NETEVT CHAN: 
00002 EVL$W_MBXEVTCHAN: 
-BLKB 2 


FFFFFFFF 688797400 ah P.AAA: 
0 


-PSECT SGLOBALS$,NOEXE,2 


00000000° 00000000° 00000 EVL$GQ_SNKHEAD: : 
ADDRESS EVL$GQ ~SNKHEAD, EVL$GQ_SNKHEAD : 
00008 EVLSGT_LOCALNODE : j 


LKB 
00012 EVL$GB -LOCALNODE : 
*BLKB 
00000000' 00000000' gogia EVLS$GQ_ASPHEAD: : 


ADDRESS EVL$GQ ~ASPHEAD, EVL$GQ_ASPHEAD : 
01 O001C EVLSGB -TRANSDONE : 


EVLS$Q_CLOSEDELAY= _P.AAA | 
-EXTRN EVLS_NETASN, EVLS_OBTEY 
“EXTRN EVLS"RAWFMT. EVLS~WRTEVI 
-EXTRN EVLS-OPNSNK, VES-NETDAS 
SEXTRN EVLSTINSFVM, EVLS"EVTSI 


F 9 
EVL TRANS vent Logging Transmitter -Sep- :35: VAX-11 Bliss-32_V4.0-74 P Evi 
nm initialization -3ep- 2 2 K sLEVL. VLTRANS. ; 

yO%~000 EVESTRANGAIT® Mote intttolizerd ex Seer 38s QhSE ee Pee eee tere i OSes eu rnans.esert” «sh voi 
JEXTRN EVLS$_WKOERR, EVL$_LOGDBUT ; 
“EXTRN EVL$"LOGOPNT, EVLS_NETSHUT : 
SEXTRN EVLSGL_LOGMASK, EVCSJULIAN ; 
SEXTRN WKOSADD_WORK_ITEM : 
eEXTRN Q TIMED ‘ 
SEXTRN WKOSCANCEL_TIMED_WORK : 
“EXTRN EVLSQUEUE EVEN : 
*EXTRN EVLSPRINTLOG : 
SEXTRN EVL INI LOCALNO : 
“EXTRN LIBSGET_VM, LIBSFREE_VM : 
EXTRN LIBSASN-WTH_MBX ; 
eEXTRN SYS$Q100 : 


-PSECT SCODES,NOWRT,2 


JU ° . wave 3 
= 140005 00 gENTRY E STRANSMIT, Save R2 0181 
00006 CF 00 FB 0000 CALLS #0, EVLSINITLOCALNODE ; 0328 
99 ' CF 9F 0000 PUSHAB EVL$W_MBXEVTCHAN : 
' cr F 000 5 EV. Su NE TEVTCHAN ; 
08 AE 4 F 9A 006 MOVZBL #64, B(SP) ; 0229 
08 AE 9F 00C PUSHAB 8(SP) : 
7E p4 DO1A CLRL = (SP) + 0227 
0000" CF 9F 000 PUSHAB P.AAB : 
000000006 FB 000 CALLS #5, LIBSASN_WTH_MBX : 
DO 000 MOVL RO, STATUS : 
1 EB 0002A BLBS STATUS, 1$ : 
De O00SF CUAL’ SCSP) Reoag 
000000006 af DD } PUSHL HEVLS NETASN : 
000000006 00 3 FB CALLS #3, LIBSSTOP F 
04 AF D4 1$: CLAL MBXMODES : 38 
08 AE 3 E MNEGL #1, MBXMODES+4 + 0239 
— 7¢ CLRQ. 0s = §p) + 0248 
7E 7 CLRQ = =(SP) : 
7E D4 9 CLRL 0s = (SP F 
18 AE OOF B PUSHAB MBXMODES ; 
7E 7 CLR@ = =(SP ; 
2c AE OOF PUSHAB 1088 : 
23 OD PUSHL # ; 
7E 0000" CF 3C MOVZWL EVLSW_NETEVTCHAN, -(SP) : 
1 dD A PUSHL # ; 
000000006 99 ¢ FB CALLS #12, SYS$Q10W ; 
p MOVL RO, STATUS ; 
0c Ar a PUSHAB 10SB ; 0250 
000000006 8F DD PUSHL  #EVL OBTEVT : 
9000v CF FB CALLS #3, EVLSNETERROR ; 
v CF FB CALLS #0, EVLSBLDFILTERS : 0258 
: D CLRL. 0 = ¢ §P) ; 
0000v CF o1 FB CALLS “1, EVLSOBTAINEVTS : 
04 RET > 0255 


3; Routine Size: 131 bytes, Routine Base: $CODE$ + 0000 


eats 
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Eveseubr Pere 3 "gurta our Local Database iSseo-tgns 93:38:84 1 aKSVMSRA e hAST 


ZSBTTL ‘EVLSBLOFILTERS Build Our Local Database’ 


ROUTINE EVLSBLDFILTERS :NOVALUE = 
bee 


i FUNCTIONAL DESCRIPTION: 
i ate the ent. itis agde for the event transmitter. If a sink node 


s added to the queve. All source filters on all 


: not preees 
sin with the latest data. Sinks that are not present 


ks are rep 


are either Peltecoted outright, or if there are events in the queve, 


marked for later close and deallocate. 


If at the end of gris routine, there are no sink blocks on the queue, 


ng we have no work to do. Otherwise we set the 


we set a fla “9 say 
hat we have work to do. 


flag saying 


i FORMAL PARAMETERS: 


i IMPLICIT INPUTS: 


NETACP Logging database 


i IMPLICIT OUTPUTS: 


Sink node queue updated 


i ROUTINE VALUE: 


COMPLETION CODES: 


NONE 
i SIDE EFFECTS: 

NONE 

BEGIN 

LITERAL 
SNKBFRSIZE = 512 ! Size of sink buffer 

LOCAL 
Part 53 : Pointer to sink gygue hea oad 
POSIT On: :VECTOR (NFBSC_CTX SIZE, byTed current EF EF posit on 
SNKBFR : BBLOCK (CSNKBFRSIZE), put Meo’ for sin 
SNKDSC : VECTOR criptor of . ore 


of a to sink block 


Head of sink queue 
Setup pointer 


Scan current queue 


SNKPTR : REF BBLOCK: 


SNK = EVL$GQ_SNKHEAD; 
SNEPTR . » SNKQUE; 


BILE ~SNKPTR NEQ .SNKQUE 


SRCTEVLTRANS.B3204°" (6 


vuvUUU 


vent L 


VLSBLD 


ne te 


PIPPI 
AE =§ OOOO NAUE WIN 0 OODNOAUEUIN 2 O DOONAN OO OOVNOU Swn— 


BRE RREEEEAEE EE EEF PAL NNN AA AAA UU BE IIIORORORURORORURORORURURURURORULLA 


bP Pes ERS reottd be Our r Local Database 


BEGIN 
SNKPTR CSNKS$V_STS_DEL] = TRUE; 
pcpte = .SNKPTR CSNKSL_FLJ 


POSITION <0,16> = 0; 
SNKDSC F9} = = peer nSize; 


SNKDSC = SNKBFR; 
WHILE 
EVLSNETSHOW( 
NFBSC_DB_EF 
NFBSC-WICDCARD, 0, 
POSITION, 
2, UPLIT 
SNKDSC) 


BEGIN 
_ = ..SNKQUE; 


BEGIN 
WHILE .SNKPTR NEQ .SNKQUE 


BEGIN 
IF .SNKBFR C0,0,32,0) 
THEN 


SNKSV_STS_ 
SNKPTR CSNKSV~STS 
EVLSBLDSOURCES (.5 
EXITLOOP FALSE 


SNKPTR = .SNKPTR CSNKSL_FLI 
END 


EHH QU:BE:HHYIRCLUABALSRCRE HRS ras. osc0t 


' eet deleted bit in all 
! Link to next 


Start at first EFI record 
Descriptor of return buffer 


AS Long as there are more nodes 
Obtain a sink node 
Event information 
' No search key 
t next record, update position 


Get 
(NFBSC_EFI_SIN, NF BSC EFI_EVE), 


' Buffer descriptor 
! Scan the queue for the new sink 
! Scan to the end 
EQL .SNKPTR CSNKSL_SNKADR) ! Do the addresses 
T match? 
! Its here, so keep it 


+4); ! Build rest of data 
i Do not create one 


Wee se 


! Link to next 


END 
PEO CSNK (.SNKQUE, SNKPTR) Allocate a new snk 
SNKPTR CSNKSL_SNKADR =”. SNKBFR ufo 0. 32,0); t Save the sink addr 
peers SNKSL_SNKLEN] = SNKSS_S ncb dsc 
hk NKPTR CSNKSA~SNKNCB) = SNKPTR steNcst _SNKNCB); 
F AOL ; uvild the ncb 
( i in the sink block 
CTRSTR = ZASCID ‘!UL:: ! Use the address form 
OUTLEN = SHB rSMngt orien), ! of the connect 
edly 4 = we SNKSL~ SNKLENJ, 
= 


); 
CHSMOVE (20, rare BYTE( 


ate 19°8 OF «OD, 
.SNKPTR CSNKSA_SNKNCB) 


‘ Ayers 

! nk number 

: a version —. 

' Pad out unused dat 
and NCB term By 

+ .SNKPTR CSNKSL _SNKLEN ); 


NKPTR_ CSNKSL_SNKLEN] = .SNKPTR FSMKSLSWKLENIOZO; } Adjust Length 


WESBLDSOURCES” (.SNKPTR, SNKBFR+4) 


SNKPTR = ..SNKQUE; 
BALE ~SNKPTR NEQ .SNKQUE ! Scan the List 


BEGIN 
IF oo CSNKSV STs abe ' If deleted, 
ae D NOT .SNKPTR CSNK "a STS_CLSJ i and not already being closed, 


BEGIN 
SNKPTR CSNKSV_STS LS} = TRUE; } Set close as true 
WKQSADD_WORK_TTEMTEVLSWRITEVT,.SNKPTR); | Make sure 0 going 
' (will delete if’ 1/0 done) 
if -EVLSGL_LOGMASK CELGSV_DBUPDAT] ! Log data base updates? 

_ SIGNAL (EVL$_LOGDBUT, 1, 0) ! Log that it occurred 


ND; 
hig = .SNKPTR CSNKSL_FLI; ! Next snk in List 


L 

D 

& 

& 
END 
Scan the snk List and remove deleted nodes 

4 

4 

& 

4 

4 

4 

| 

1 


-PSECT SPLITS,NOWRT ,NOEXE ,2 


9602 041 ae 0018 P.AAD: .LONG 100728848. 100794433 
00 00 2F 3D 36 32 22 3A 3A 4C 1 00020 P.AAF: <ASCII 6=/\<0><0> 
DEOOGA 0002C P.AAE: .LONG 8547 
bo 0000° 4 4 ee P. oe 
00 00 04 03 00 00 00034 P.AAG: ‘BY TE 3, 4, 0, 0 
Oe 00 A “BYTE of13 134 
067 “ASCII 


eEXTRN SYSSFAOL 
-PSECT SCODES,NOWRT,2 


O1FC 00000 EVLSBLOFILTERS: 
WORD Save R2,R3,R4,R5,R6,R7,R8 


5 FDBB CE 9E 2 MOVAB =584(SP5, 
0000° cr E MOVAB EYL $GQ SNKHEAD, SNKQUE 
8 D PUSHL  (SNKQUE) 
p CMPL = RO, - SNKQ 
14 BEQL 
2 OA 8 16 BISB2 46(RO) 
6 p 1A MOVL (RO), SNKPTR 
EF 1D BRB 


(SBL PPP TERS Bolla Gor Local Database 1-00-1984 93:33:89 DLSKSUMGRASTERSCEVL  SRCSEVLTRANS.B320 wet 


v0 


i0%-000° VISOLBFILIERS Bultd Ger Local Database iiss opr 198 93:38:89 «NES CSuMGMASTERSCE VC secevLTRANS.B320%° 


AD B4 28: CLRW TION ; 

04 AE 0268 BF 3C ; MOVZWL wei SN : 

8 AE ¢ AE E MOVAB Sixatn, WENRDS C+ ; 

AE 3$: PUSHAB : 

0000° i F PUSHAB : 

2 OD PUSHL # : 

co AD F POSITION : 

DD C PUSH 4 : 

00006 r FB ; CALL a. VLSNETSHOW : 
4 D 4 (SNKQUE), SNKPTR : 

D 49 4$: MOVL = SN R ; 

D 4C CMPL 2, SNKQUE : 

7 1 4F BEQL : 

18 A2 Oc AE pj 1 CMPL NKBFR, 24(R2) : 

v8 1 6 NEG $ : 

2E a2 BA BICB2 #24, 46(R2) : 

10 AE OF C PUSHAB SNKBFR+4 : 

52 DD F PUSHL R2 : 

48 11 2 BRB 7$ ; 

6E 62 00 00063 SS: MOVL § (R2), SNKPTR : 

1 11 BRB 4$ : 

4100 &8F 8B 6$: PUSHR #*M<R8,SP> : 

0000v CF 2 F 6¢ CALLS #2, EVLSALLOCSNK ; 

6 6— D MOVL §§ SNKPTR, R6 : 

18 «A 9 A p 7% MOVL § SNKBFR, 24(R6) : 

5 A6 9E 00079 VAB  48(R6) : 

67 40 BF 9A 0007D MOVZBL #64 (R7) : 

34 Ab 38 «=6A6 SE 00081 VAB_ 56(R6), 52(R6) : 

0c AE OF 8 PUSHAB SNKBFR : 

2 DD PUSHL R7 ; 

7 pp PUSHL 7 : 

0000' CF 9F PUSHAB P.AAE : 

000000906 00 4 Fe 91 CALLS #4, SY "S308 F 
50 4 Ab 67 g 98 ADDL3 (RP), 6), an? ; 
60 0000" CF 14 8 % MOVC #20, P. ; 
67 14 ¢ A ADDL2  # F 

10 AE OF ag PUS iit : 

56 DD PUS : 

0000v CF 9 re B 7S: CALLS , EVLSBLDSOURCES : 
FF7A BRW ; 

68 D $: MOVL § (SNKQUE), SNKPTR : 

D $: MOVL SN Rea ; 

p B CMPL Re Que ; 

BC BEQL ; 

9 —E A E1 000¢ BBC 46(R2), : 
4 —E A 4 FO 0C BBS Hf 4 (83) ; 
— A g DOC B1SB2 6(R25 ; 

D Q00CC PUSH : 

0000v CF 9F O00C PUSHAB Re ite ; 

00006 cr 2 FB 000 CALLS a. URASADD WORK jTeEM ; 

0 00006 CF 6 00D BLBC EV SG OGMASK, T ; 

7E 1 7d 000DC MOva ; 
000000006 8F OD O00DF PUSHL apis LOGDBUT F 

000000006 00 ; Fe DOES CALLS tg SIGNAL ; 
E D EC 10$:  MOVL {Raye NKPTR : 


ite B00" Eve SSLbR TET ERS” Hit he te Local Database 1$-$00-1944 94:38:29 PedbnShhe FERS cei sheave rrans.03204%° a3 
Ot OBR iis: = RER i 8358 


3; Routine Size: 242 bytes, Routine Base: SCODES + 0083 
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VLSBL 


be8daces eu tacit of Sources in SNK BL 1$sen-1944 93: 38: 3 Disk VMSMASTER 


CIR OPOPOPOPOPIPOPOPOPORIMOPIPNUPINONONINIDD 8 8 9 tt 0 tt et 
. . a . 


ZSBTTL MAL sy LDSOURCES Build List of Sources in SNK Block’ 
ROUTINE EVLSBL 


DSOURCES (SNKBLK, SRCDATA) :NOVALUE = 


!o4 


H FUNCTIONAL DESCRIPTION: 


Build source filter List on sink block. ALL present source blocks 
are removed first. 


i FORMAL PARAMETERS: 


SNKBLK Address of sink block 
SRCDATA Address of source data List 


i IMPLICIT INPUTS: 


i IMPLICIT OUTPUTS: 


i ROUTINE VALUE: 
i COMPLETION CODES: 


i SIDE EFFECTS: 


Pointer to sink block 
Pointer to source block 
Pointer to source data 
Size of a source block 
End of source data 


AL 
SNK : REF BBLOCK, 
SRC_: REF BBLOCK, 
RCPTR 


5 
SRCSIZE, 
SRCEND 


SNK Deal 
UNTIL Suk SNKSL_ SRCFLJ EQL .SNK Cswist® SR 


EVLSDEALLOCDBK (.SNK CSNKSL_SRCFLJ ) 


lo pegte all current sources 
SRCFL 


SRCEND = .SRCDATA + .(.SRCDATA) <0, 163; ! Word counted string 
SRCPTR = .SRCDATA + 2;— Skip the count 


WHILE .SRCPTR LSSU .SRCEND ! For as long as there is data 


GIN 
SRCSIZE = .(.SRCPTR) <0, 16>; !' Size of source block 
EVLSALLOCDBK ' Build a block for the source data 


32 
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. 
VESBLDS Re CBs “au tae ise of Sources in SNK au | -$ He 1982 9}: 38: af Disk $V nena AST eRccE ViOSRCSEVLTRANS .832- B 


( 
-SRCS 


7E + 8 0 ce. block and Links 
zSNK tefxsu gece], ¢f inh 


i Return its ae here 
! Copy the data into the source block 


€sw_S1Ze) 
= ,SRCPTR + .SRCSIZE ! Next source block 


Se Se Ge Se Ge Se Ge Se ee OH Ge Se Ge Stee 


O3FC 00000 EVLSBLYSOURCES: 


cone SNK 
REND 


“oon 
mor 
Oooo 
oc 
iy 
wD 


OF MTV DS NHVSS SU" 9 DOw—" 9 Ov 


1$: 


i. sEVLSDEALLOCDBK 


@SRCDATA, SRCEND 

SRCDATA SRCEND 
SRCBATA, SRCPTR 

Setpen SRCEND 


aaa SRCSIZE 


a 


(SRCSIZE) 
& EV ALLOCDBK 
mOVeS SRCSIZE, (SRCPTR), 8(RO) 
ADDL SRCSIZE. SRCPTR 


‘ 
: 
f 
; 
3 
5 
t 


OUMOOF > 


SSSSSSSSSSssssseooees 
Bete Se Ge Ge Ge Ge Ge Ge Ge Se Se Ge Se Se Ge Ge Ge Se Be Ge Se Se Se 


errr 


OM TO9 OW GQNorwW "90 $90 OT 
F—OO0 299M BO 


; Routine Size: 77 bytes, Routine Base: SCODE$ + 0175 
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N 
EVLTRANS vent Logging Transmitter -$ep-1984 01:35: VAX-11 Biiss-32 V4.0-74 Page 16 
v0%-000 EVE SALLOPENK® Allocate and Initialize a SNK Blo 12-808-1382 94:33:39 DLEKSVMGMASTER LEVEL SRCTEVLTRANS.B3207" (a5 
; £38 ZSBTTL ‘EVLSALLUCSNK Allocate and Initialize a SNK Block’ 
2 GLOBAL ROUTINE EVLSALLOCSNK (PRED, SNKRTN) :NOVALUE = 
481 f 144 
? ¢ of ' FUNCTIONAL DESCRIPTION: 
4 47 Allocate and initialize a sink block. The block is Linked into the 
485 f correct place in the sink queue. 
FORMAL PARAMETERS: 
¢ PRED Address of predecessor in List 
3} ? SNKRTN Address to return address of snk block 
4 5 IMPLICIT INPUTS: 
l NONE 
95 : 
4 IMPLICIT OUTPUTS: 
98 491 NONE 


SPRIPIPIAIPIPIP IFIP DIDI) at a i i a a a a a a ad a ad ee ed edd 


Se Se Se Se Se Se Ge Ge Ge Be Se Ge Ge Ge Se Ge Ge Ge Ge Ge Se Ge Se Se Ge Ge Ge Ge Ge Ge Ge Se Se Ge Se Se Se SH Ss Ss Se Ge SH Se Se Se ee eee 


& 
4 
4 
4 
4 
4 
4 
4 
494 
d 
i 
499 9 
300 138 ROUTINE VALUE: 
01 494 COMPLETION CODES: 
ang 95 
a3 38 NONE 
505 98 SIDE EFFECTS: 
208 499 
0 500 NONE 
508 320) 
310 i 
Se ean 
218 9208 LOCAL 
213 308 SNK : REF BBLOCK 
1 50 ° 
$16 510 EVLSALLOCDBK (SNKSC_SIZE, .PRED, SNK); ' Allocate the block 
18 511 SNK CSNKSL_SRCFL] ="SNK CSNKSL_SRCFLJ: i Fill in the queue headers 
1 21§ SNK [SNKSL_SRCBLJ = SNK CSNKSL_SRCFLJ; 
0 51 SNK [LSNKSL_EVTFLJ = SNK CSNKSL_EVTFLJ; 
1 213 SNK CSNKSL_EVTBLJ = SNK CSNKSL_EVTFLJ; 
§ HF »SNKRTN = SNK; ! Return the sink address 
¢ 317 EVL$GB_TRANSDONE = FALSE; ! Mark transmitter active 
6 219 END; 


000 sENTRY EVLSALLOCSNK, Save nothing 3 0472 
5E 4 ¢ SUBL2 #4, SP : 
E 0D PUSHL SP ; 0510 


10 
fYe O00" EVESALLOPENK® Altoceterend Initialize @ SNK Blo 1$-2e0-1984 94:33:88 WNL wGHASTERSCLUC SRCTEVLTRANS.B32-1°" (BS 


7E % Ar i ROVZBL Wop (SP) : 

0000v gf TF CALL oe ey SALLOCDBK : ene 
A i 1 MOV (RO), 28(R0) : 

f A cA MOV (RO), 32(RO) : 513 

A A MOVAB (RO), 36(RO) : 051 

Bt ¥ $ A BOVE R oR ShK ATH ‘ : 24 

| 0000' CF E CLRB -_— EVL$GB_ TRANSDONE + 0517 

RET + 0519 


3; Routine Size: 51 bytes, Routine Base: S$CODE$ + 01C2 


Pe 
: 


Be Be Se Se Se Se Se Se Se Se Ss Se Be Se Se Se Fe Ge Be Fe Ge Ge Ge Se Ge Ge Ge Ge Ge Ge Ge Ge Ge Se Ge Ge Ge Se Ge Se Se Se Se Se Ge Be Ge Se Se Se Se Se Se Se ee Se ee 


PIE BE EE 


NEAR UN LS CONOR GND OOW IOP MOO Doe 


MAMNANUIUIW 
Ooo 


ns 


FEVES SSNS ARN Soe UHM hue 


ty Val ah ah ah db 4h ob 4h dh Ab Ab db ab ah ah ah sb sb al al 


n 


10 
DH NBESM BETS HERSHOMs QeBRSRt pcLigulstcecth® 


VLSDEA $ Deallocate Sink Block 14-Sep-1 


ZSBTTL ‘EVLSDEALLOCSNK Deallocate Sink Block’ 
ROUTINE EVLSDEALLOCSNK (SNKBLK) :NOVALUE = 
14 


1o+ 
FUNCTIONAL DESCRIPTION: 


Deallocate a sink block. Remove and deallocate all the entries 
on the src and evt queues as well. 


i) 

1 

i FORMAL PARAMETERS: 

SNKBLK Address of the sink block 
IMPLICIT INPU™3: 

NONE 

IMPLICIT OUTPUTS: 

NONE 

! ROUTINE VALUE: 

} COMPLETION CODES: 

NONE 

} SIDE EFFECTS: 

NONE 

] 


BEGIN 


LOCAL 
SNK : REF BBLOCK 


SNK = .SNKBLK; 
WH 


Local pointer to snk 


Set the pointer 


Ahhh Abed tehteedbedbed deb dh dh dh dh dh th dh ah dh Ab Ab Ab Ab a db dh hb db db db Abad 


DPAEDXP_E_EQDPPAAMAM NV PPL LLL LEE 


NAO 
SIRANVSS SVS AIPORT IS SSNS ARUN S Ooo Ons vat oO Soo sn Mean eos OO Oe 


~SNK CSNKSL_SRCFLI ! Watch for empty queue 

SNK CSNKSL_SRCFLJ 

EVLSDEALLOCDBK (.SNK CSNKSL_SRCFL) ) ! Deallocate each source 
WHILE ! Watch for end of queue 


.SNK CSNKSL_EVTFLJ 
SNK CSNKSL_EVTFLJ 
EVLSDEALLOCDBK (.SNK CSNKSL_EVTFL] ) ! Deallocate each event 


EVLSDEALLOCDBK (.SNK); 


Deallocate snk block 


SOOOOOOOOOCOSSOCOSOOCOSOSSOSOSOSOGOOOOOOSOOOOOOO OOOO OOOOOOOOOOO 


PRaPPOFIPIPIPOPOPIPIPOPIPIPIPOPIPIPIPIMININIIINII a ad a tt st st st tt tt tt tt tt tt 
ome ° . 


DPUPUPUPPTAP AAAI 


ANN 


7 


=74 Page 18 
«SRC EVLTRANS.B32:1> (9) 


; Routine Size: 


EVESHEACe OCS 


a 


74 bytes, 


Transmitter 1b-50 Sep-1984 01:35: VAX-11 Bliss-32 V4.0-7 9 
Deallocate Sink Block =30P 71387 9:33:29 DISKSVMSMASTER: CEVL. she EVLTRANS .832; rise (3) 
EVLSGB_TRANSDONE = (.EVLSGQ_SNKHEAD EQL EVL$GQ_SNKHEAD); ! Mark done if empty 


END; 
000C 00000 EVLSDEALLOCSNK: 
» WORD aee 3; 0521 
0000v CF 9 & MOVAB ev ppt. R3 ; 
4 A p MOVL : 0558 
C OA MOVAB : 056 
1¢ Ad D CMPL He SNS , : 
1c AS DB 9001 PASHL : 0564 
63 0 FB 1 CALLS i oa VL SDEALLOCDBK ; 
fe 1 18 BRB 4 : 
50 4 A 95 1D 2%: MOVAB 6 ( SNK > 0570 
0 4 A2 D 0 1 CMPL (SNK : 
08 13 3 BEQL é : 
24 A2 Dd 000 PUSHL  36(SN + 0572 
63 01 FB 90 A CALLS a. VL SDEALLOCDBK : 
5 DD OOO2F 3$ PUSHL S K > 0575 
63 01 FB 00031 CALLS #1, EVLSDEALLOCDBK ; 
5} 0000° ct 9E 000 MOVAB EVi$GQ_SNKHEAD, R1 : 0577 
0 04 00039 CLRL = RO : 
51 0000" CF D1 000 CMPL _ EVL$GQ_SNKHEAD, R1 : 
2 12 004 BNEG 6 4$ : 
26 04 INCL RO : 
0000" CF 0 90 00044 4$ MOVE RO, EVL$GB_TRANSDONE : 
04 00049 RET + 0579 


Routine Base: S$CODES + O1F5S 


10 
RPAcvis Borels Rew Events 1$-fe0-1984 93:33:29 Disk tine VMSMA Bae $587 Hi sae EVLTRANS 83247" (169 
SBTTL suv bsoe TAINEVTS Obtain Raw Events’ 
OUTINE EVLSOBTAINEVTS (ASPBLK) :NOVALUE = 


Event 

VL$08 

z 

R 

'oe 

! FUNCTIONAL DESCRIPTION: 

a four tne reads a ine tree the mailbox associated with the 
Rennes - Wec onp Lote he io in the readevts routine and 

~ By either try a open or another mailbox message, or read 

events from the NETACP. If no aspblk is available, then we 

allocate one. 

FORMAL PARAMETERS: 

ASPBLK Address of aspblk or zero if nore 

IMPLICIT INPUTS: 

EVLSW_MBXEVTCHAN 

IMPLICIT OUTPUTS: 

NONE 


ROUTINE VALUE: 
COMPLETION CODES: 


NONE 
SIDE EFFECTS: 
NONE 


BSSSLoLoe 


LOCAL 
ASP : REF BBLOCK, 
STATUS 


Ast Paramter block 


PPP APA AOA AA AAA AACS 
ee ee 


AEA 20 ODNOU EWN 0 OONAUL WIN OSC 


If .ASPBLK EQL 0 
EVLSALLOCDOK 


Evise EVTBFRSIZE + ASPSC_SIZE, 
pEyesee ~ASPHEAD (1), 


Allocate a block if we need 
! One 


ELSE 
ASP = .ASPBLK 


Use old block if we have one 


ASP CASPS$L_ROUTINE] = EVLSREADEVTS; 
STATUS = $010 


Setup the routine address 


1 
1 
1 
1 
} 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
j 
1 
1 
1 
1 
1 
BEGIN 


Start a read from the 


Sea cc 


F 10 
© ENESBGH PREVA ’SOtRin Rew Events 1e$ep=1986 F2:38:87 — DiSksumsmAStenscEVi. SRCSEVLTRANS.832;4"" (10) 


#2 
z 
2 


-000 
; P ( ! mailbox to findout when ° 
; 4 Er’ = EVLSCIASTNGHEFN, ' events are available ; 
3 P Func ="10 -FEADVBLE, ; 
; Pp 1086 = ASP~CASP$W_10SB), : 
3 P ASTADR = EVLSASTWORK, 3 
; P ASTPRM = .ASP ; 
: Pp ri = ASP Aspe DATAl. ; 
; e ; ne = EVLSC_EVTMBXS12 ! Size of mailbox messages : 
; EVLSNETERROR (EVL$_OBTEVT, .STATUS, 0) ! Analyse errors 3 
i 888 5 END; : 
.EXTRN SYS$QIO ; 
0000 00000 EVLSOBTAINEVTS: : 
eWORD Save nothing ; 0581 ; 
SE 04 ¢ SUBL2 #4, SP : : 
% At 6 TSTL ASPBLK ; 0622 : 
1 BNEG = 1 : ; 
5E DD PUSHL SP : 06 5 ; 
9900" é PUSHL EV $60_ASPHEAD+4 > 0627 ; 
7E 0 &8F MOVZUL a 2, =(SP + 0626 : 
0000v CF 3 f CALLS é » EVLSALLOCDBK Fae : 
ete ree em, +) 
4 A 0000v cr MOV EVL$READEVTS, 20(RO) : 
E CLRQ. = =( SP) + 0646 
7E CLRQ = = (SP) ; 
7E 49 BE MOVZBL #64, -(SP) ; 
wae PusnAs g3 (ho) 
0090v CF ) PUS F LSASTWORK : 
Cc (A PUS (RO) 
a 0 PUSHL # A : 
7E 0000 f $C O0¢ ROVZuL EVLS$W_MBXEVTCHAN, -(SP) ; 
U ° 
000000006 00 C FB 00C CALLS #12, SYS$I0 ; 
D4 001 CLRL 0 = (SP) + 0648 
DD PUSHL STATUS : 
000000006 BF DD PUSHL HEV OBTEVT : 
0000v CF 3 F CALLS #3, EVLSNETERROR : 
0 RET 3; 0650 


3; Routine Size: 93 bytes, Routine Base: S$CODES + 023F 
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10 
™|R j T i -Sep- 735: - - -0- 
ita SoeaTs® Reed Events from NETACP 18-ben-1984 94:33:29 St exsve biSteacctuc sacSeve TRans.03204 7" (145 
ZSBTTL ‘EVLSREADEVTS Read Events from NETACP’ 
ROUTINE EVLSREADEVTS (ASPBLK) :NOVALUE = 
5 * FUNCTIONAL DESCRIPTION: 


Routine called to obtain a buffer of raw events from NETACP. 

The input asp hes a me; Loon message in it which has been read 

from a net channel mailbox. The mailbox code is MS aEVTAVL for 
n 


3 1! 

3 1! 

3 1! 

3 1! 

3 1! 

; 1} events are available; MSGS_NETSHUT for the network is shutting down. 
; 67 ;! Other codes are ignored. 

3 a 1! The events are read into an ASP buffer and then schedule work for 
: it : : EVI.SPROCESSEVTS. 

; org | FORMAL PARAMETERS: 

; 67 1 i ASPBLK Address of an asp block 

3 ore 1} 

: 6 : : IMPLICi? INPUTS: 

: 681 NONE 

; g } { IMPLICIT ouTPUTS: 

: 685 NONE 

; 1 ! ROUTINE VALUE: 

3 1 ! COMPLETION CODES: 

3; 689 1! 

; 690 's NONE 

; 691 1! 

3; 69 1 ! SIDE EFFECTS: 

; 69 1! 

; 694 1! NONE 

; $93 : 

: $39 ay 

: $38 BEGIN 

; 5 LOCAL 

: 701 ASP : REF BBL gk ' Ast Paramter block 

> H ‘ ‘B : VECTOR BYTE), ' Network function block 
mz. NFBDSC : VECTOR 31. ' Descriptor of same 

3 RSLDSC : VECTOR ! Descriptor of result buffer 
: 5 STATUS 

; 2 : 

3; 708 ASP = .ASPBLK; ! Use old block if we have one 
; at 70 IF NOT EVLSNETERROR ! Analyse the error 

; a z ¢ EVL$_OBTEVT, ! Unable to obtain events 
: n 

: 714 7 ASP CaSP$wW_10SB) 

3; «715 705 = 

: at) 7 THEN 

:; 71 7 BEGIN 


ent 
LR 
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Transmitter 16- 
3 12- 


Read Events from NETACP 


EtuRN (ASP); 
END 


hata CHSRCHAR (ASP CASPST_DATA] > OF 


CRSGS _EVTAVLA : 


CMSGS Sie SHUTS : 
LOCAL SNKPTR: REF oentis 


SNKPT .EVL$GO KHEAD: 
OHILE” LSNKPTR neg eve GQ" SNKHEAD 


BEGIN 
SNKPTR CSNKS$V_STS_CLS] = 


Set cl 
WKQSADD_WORK VITERTEVESURITEVT.. SNKPTRD 5 inf 


SNKPTR = .SNKPTR CSNKSL_FLI; 


RETURN; 
END; 


COTHERWISE) : 
BEGIN 
EVLSOBTAINEVTS (.ASP); 
RETURN 
END; 
TES; 


ASP CASPS$L_ROUTINE] = EVLSPROCESSEVTS; 


NFBDSC Hae = oi 


NEB EO = NF A OREADEVENT 
wre 06 yes "EVES pEVIBFR Ré12 


RSLDSC tS KSPST_DATA 
STATUS 
EFN = EVLS$C_SYNCH_EFN, 
CHAN = .EVLSW_NETEVTCHAN, 
FUNC = iOS A ACPC 
10SB = ASP ~CASP$W_10S8), 
Pl = NFBDSC, 
P3 = RSLDSC. 
.. = RSLDSC 


ASP CASP$W_10SB1) = .RSLDSC (0); 
IF NOT .STATUS 
THEN 


Be 12:38:58 


! Try again 


<m 


-0-7 
TER: ci sk EVLTRANS.832: 


! Dispatch on message types 
Just continue with work 


! Network shut down happening 


Scan the List 


Do not reissue mailbox read 


! Ignore the code and 


! Setup the routine address 
Set up the nfb to readevents 


Set up the result buffer dsc 
Perform the qio 


' Network function block 
Return result length here 
Result buffer 


*TEMP* Set Length in I0SB 
Report an error 
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780 


10 
Event L 
VLSREA 
q SIGNAL_STOP (EVLS_OBTEVT, 0, .STATUS) 
7 oO 
f WKQSADD_WORK_ITEM(EVLSPROCESSEVTS, .ASP); 
7 END; 
001C 00000 EVLSREASE VTS: 
4 000000006 14 D MOVL 
8 C SUBL2 
ge Ag 3 MOVL 
c F PUSHAB 
1 OD PUSHL 
4 OD PUSHL 
0000V CF 4 CALLS 
1 BLBC 
0 18 =#OA A MOVZBL 
E } CMPB 
1 BEQL 
38 91 CMPB 
is BNEQ 
26 0000° CF 4 MOVL 
0000° CF 1$ MOVAB 
50 2 0 CMPL 
A 1 BEQL 
2E = A2 19 8 BISB2 
5 pp PUSHL 
0000V fr F PUS 
00006 gf F CALLS 
62 D MOVL 
3 1 BRB 
0D 2s PUSHL 
FF4C CF 01 FB CALLS 
oe RET 
14 A3 0000V ff 3 3$ MOVAB 
08 AE 5 MOVL 
0 AE 10 AE MOVAB 
1 AE 1D me 
6E orgs ef C MOVZWL 
04 AE 1 A E VAB 
7E 7C¢ CLRQ 
8 AE af PUSHAB 
C AE OF PUSHAB 
7E 04 CLRL 
1€ AE OF PUSHAB 
7 C CLRQ 
OC AS OF PUSHAB 
3 ge PUSHL 
7E 0000° CF 3C MOVZWL 
eaaeey ° 0 t Pe CALLS 
E 8 E 80 MOVW 


! Process the events 


Save R2,R3,R4 
WEVLS_OBTEVT, R4 


#246 
ASPBLK, ASP 
12(ASP5 


R4 
#3, ac ceatat 
RO, 2$ 


24(ASP), RO 
RO, #62 


BO. #59 
EVL$GQ_SNKHEAD, SNKPTR 
EVL$GQ"SNKHEAD, RO 
NKPTR; RO 

#16, 46(SNKPTR) 

SNKPTR 

EVLSWRITEVT 

#2, WKOSADD_WORK_ITEM 
(SHKPTR) SAKPTR 

AsP 

#1, EVLSOBTAINEVTS 
EYLSPROCESSEVTS, 20(ASP) 
#5, NFBDS 


C 
NFBDSC+4 


NFB, 

ra NFB 
#488, RSLDSC 
24(ASP), RSLDSC+4 
=(SP) 


RSLDSC 
RSLDSC 


NFBDSC 
12 (ASP) 
EVLSW_NETEVTCHAN, -(SP) 


#12, SYS$Q10W 
RSLOSC, 14(ASP) 


SPUiS" Reed Events from NETACP 1$-Se0-1984 9b:3Ri ee | PeeoinGhAStensceuc sacSevitrans.03204°" «143 
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ing Transmitter 
TS Read Events from NETACP 


@Wrnowofloe 


onmoonororom 
= 
SLESERSMS om 


Soclaes CUHEESG  YNGHUARAEHEH? 


STATUS, 4$ 
STATUS 

=(SP) 

R4 

#3, LIBSSTOP 
ASP 


5 
EVLSPROCESSEVTS 
#2, WKQSADD_WORK_ITEM 


ERSLEVE SRCTEVL TRANS .B3209°" (193 


a2 
: 


SE ERISSELSOPORSSSENEORER BS 
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a 


Ssessat 
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ZSBTT cv boanceeereye: Process Raw Events’ 
ROUT Ihe EVLSPROCESSEVTS (ASPBLK) :NOVALUE = 


ee 


j PORtT een, DESCRIPTION: 
Process raw events and queue them to the various —* nodes. 
If an error occurred on the read of raw events, signal it and 
erform another request for raw events. If no error, saan 
he raw event buffer and filter each raw event in the buffer. 
{ FORMAL PARAMETERS: 
ASPBLK Address of the ASP block of raw events 
| IMPLICIT INPUTS: 
EVL$GQ_SNKHEAD Head of sink List 
IMPLICIT OUTPUTS: 
NONE 


i ROUTINE VALUE: 
| rere CODES: 


NONE 
{ SIDE EFFECTS: 
NONE 


BEGIN 


LOCAL 
ASP : REF BBLOCK, ! Pointers to various blocks we need 
RAW : REF BBLOCK, 
ow : REF BBLOCK, 


TR, ! Pointer to a raw event 
RAWEND, ! End of all of them 
RAWDSC : VECTOR (2) ! Descriptor of raw event 


Oe wot’ tn ui some error 
IF NOT: EVLSNETERROR (EVL$_OBTEVT, TRUE! "A ASPSW_ 16881" ) 


BUC SOBTAINEVTS (ASP); ! Just try again for some events 
RETURN 


RAWPTR = ASP CASPS$T =patAdi Set start pointer and 
RAWEND = .RAWPTR + [ASP CASPSW_ 10sB1); ' end pointer 


s2 
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Event L 4, {repent eter 18-50 -1984 01:35: VAX-11 Bliss-32 V4.0-7 Page 27 
rocess Raw Events ep- 228: KSVMS. VL. VLTRANS .B32; (12) 
EvesRbceescdrs “P Raw E 307-188 bisaiee «| Pee dnGeastensceve secdever 32099 «15 
eats eRAWPTR LSSA .RAWEND ! Scan the whole List of raw events 
BEGIN 
RAW = .RAWP nt to this event 
RAUPTR’'= Awe lcéTR + Raw CRAWSW ites); and the next one 
4 IF .RAWPTR GTRA SRAWEND ! Is this event too long?? 
5 THEN IN 
: & SIGNAL (EVLS_RAWFMT); } de age some error and 
4 EXITLOOP i then top 
EN 
§ RAWDSC £03 = .RAW CRAWSW_BYTES]; ! Build descriptor of raw event 
RAWDSC Ci] = .RAW; 
¢ SUL MEAT OS ! Log the raw event if required 
ase SBITPOSITION ere -RAWEVT), ! Bit number of responsible bit 
84 ZASCID ‘Raw even '"Header text 
see 0, ' No extra text 
636 pees i Descriptor of data 
51 ‘ 
0858 IF a CRAWSW_EVTCODE) ! Data base change event? 
854 EVCSC_VMS_DBC 
855 THEN 
528 EVLSBLDFILTERS () ! Just rebuild the filters 
Bogen 
859 4 SNK = .EVL$GQ_SNKHEAD [0]; ! Scan the sink queue and 
369 ? WHILE .SNK NEGA EVL$GQ_SNKHEAD 
BEGIN 
ne EVLSFILTEREVT (RAW, a | ! filter each raw event 
pace = * ~SNK CSNKSL JFLI t look at next sink 
4 END 
an END 
Hi snenemaeaie (ASP) ! Back for some raw events 
8 72 END; 


-PSECT SPLITS,NOWRT .NOEXE ,2 


ASCII \Re nt\<0><0><0> 3 
0 "LONG 17694729 
0 sONeess. ary 3 


-PSECT SCODES,NOWRT,2 


50c-000° EVESPROCERSEUTS. “Panccce Raw Events G-ep-1964 9b3Ri ee Ur eUmBAASTERscEuC seClEviTRans.03204%" (155 


007¢ 00000 euLornacessay es 


Save R2,R3,R4,R5,R6 : 0772 
§ 08 ce suBL 3 
04 ag b MOVL  ASPBLK, ASP + 0817 
C AS OF PUSHAB ep ; 0818 
i 0D ¢ PUSHL : 
000000006 8F ODD PUSHL $OBTEV : 
0000v CF FB ff CALLS i: i NEYERROR : 
3 18 «OA bE 1 MOVAB atin RAWPTR : 08 $ 
6 OE A f MOVZWL Te eneS, aRAvENo ; 08 
6 C 4 ADDL2 RAUP PTR, : 
4 D1 7 1$: CMPL RAWPTR. RAUEND : 0829 
D if A BGEGU : 
54 2 p C MOVL RAWPTR, RAW + 083 
4 ¢ O2F MOVZWL (RAW), RO : 083 
3 9 C : ADDL2 ROO WA hueTR : 
D1 CMPL  RAWPTR, RAWEND + 0834 
F 18 BLEQU : 
000000006 8F DD 0003A PUSHL ‘ VL$_RAWEMT : 0837 
000000006 00 04 re d940 CALLS fi. LIBSSIGNAL t sens 
6E $4 3C 00049 2$: MOVZWL (RAW), RAWDSC + 084 
04 AE 4 DO 0004¢ MOVL RAW, RAWDSC+4 : 084 
SE 0D 9090 PUSHL SP : 0845 
7E 04 0005 CLRL. = (SP) ; 
0000" CF 9F 00054 PUSHAB P.AAH : 0846 
04 DD 0098 PUSHL ui + 0845 
00006 CF 4 FB OO05A CALLS EVI SPRINTLOG : 
2000 =8F OA ad 8} OO5F CMP *otRaNs #819 : 0853 
FCC4 CCF 8 FS 0067 CALLS #0, EVLSBLDFILTERS : 0856 
B9 1 996¢ BRB 1$ : 
55 0000" CF po 006E 3$: MOVL § EVL$GQ_SNKHEAD, SNK : 0859 
20 0000" CF ‘ 0073 4$: MOVAB EVLS$GQ~SNKHEAD, RO : 0860 
0 55 01 0007. CMPL SNK, RO 3 
AA 13 00078 QL 1$ 3 
30 BB 00070 PUSHR #*M<R4,R5> : 0863 
0000v CF 08 F Ort CALLS #2, EVLSFILTEREVT ; 
55 65 p 6 4 HOVL (SNK), SNK + 0864 
me FRB nsnneet je 
fe § RET : 0872 


; Routine Size: 145 bytes, Routine Base: S$CODE$ + 0353 
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TPREV? ‘FA Tter Events with » Sink 


*EVLSFILTEREVT Filter Events with a Sink’ 
ROUTINE EVLSFILTEREVT (RAWEVT, SNKBLK) 
* FUNCTIONAL DESCRIPTION: 
Filter a single event with a 
for any of the sources or the global filters, then its translated and 
queued for this sink. 

i FORMAL PARAMETERS: 


RAWEVT Address of the raw event in the buffer 
SNKBLK Address of the sink control block 


i IMPLICIT INPUTS: 


! IMPLICIT OUTPUTS: 


i ROUTINE VALUE: 
i COMPLETION CODES: 


i SIDE EFFECTS: 


BEGIN 


AL 
RAW : REF pe oer 
SNK : REF BBLOCK, 


E, 
SRCFOUND : BYTE 


RAW = ~RAMEVT 
SNK =» SNKBLK 
SINKMASK 

SRCFOUND s 4 


SRC = .SNK CSNKSL_SRCFLI; 
WHILE ~SRC NEQ SNR CSNK 


BEGIN 
IF ag CRAWSB_SRCTYPJ 
ssi CSRC$B_SRCTYP) 


“1984 92:38:37 bt 


Pointer to a raw event 

Pointer to the sink block 

Pointer to a source descriptor . 
Sink mask (console, file, Seniter? 
Bool for source found 


! the head of the | 


X-11 Bli sae y 9 
SKSVMSMASTER: cv Hie OSRCTEVL TRANS. B32; i 9485 


If the event matches 


Set pointer for raw event 
Set pointer to sink a3ees 
No sinks indicated y 

Specific titer. not PE ad 


Scan the source ft. from 


If source types match 
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BEGIN ! and the sources themselves 
SELECTONEU . -RAW CRAWSB_SRCTYP] OF ! match according to the type 
Fevcsc_ snc. NON] : TRUE ! No source type. always match 
EVC$C aC she “LIN, NaEVGSC. Srt_ CIR, ! Compare ASCIC strings 
evtsc_$ 
BEGIN™ 
CHSEOL 
CHSRCHAR (SRC CSRC$T_SRCIDI ). } oe in the source block 
ane SRCS$T poe +7 ! size and addres 
CH REHAR (RAW CRAWST énc103>, ' “Counted string 
RAW _SRCID) + T, from the raw event 
0 i fill 
) 
END; 
CEVCSC SRC_NODJ : ! Compare node id's 


.( RAW CRAWST_SRCID] ) <0, 16> ! Compare only the node 


EQL ! addresses 
A CSRC$T_SRCIDJ ) <0, 16> 
CEVCS$C_SRC_ARE] : Compare area _numbe 
. (CASRCRAR (RAW CRAWST_SRCIDJ) ea. " CHSRCHAR (SRC CSRC$T_ "§rcipy)): 
END 
THEN 


BEGIN 
SRCFOUND = TRUE; 
SINKMASK = .SIN 


They match, so we found it 
. EVLSFILTERSRC (.RAW, .SRC) 


Add its sink contribution 
to the growing mask 


SRC = .SRC CSRCSL_FLI Link to the next source dsc 


IF NOT .SRCFOUND 
THEN 


If we did not find a source 


BEGIN 
SRC = .SNK CSNKSL_SRCFLI; ! Scan the source Lis 
WHILE .SRC NEQ SNR CSNKSL_SRCFLJ ! and look for 4 Bg filters 


BEGIN 
IF, SRC CSRCSB_SRCTYP) 
EVC$C_SRC_NON 
EN 


Consider only global filters 


BEGIN 
SINKMASK = .SINKMASK OR Combine its contribution 
> EVLSFILTERSRC (.RAW, .SRC) 


And look at remainder of 


Src = .SRC CSRCSL_FLI 
END source descriptors 


EVLTRANS t Logging Transmitter 1b-5e -1 VAX-11 BLi seae v4. 
yOu~000 SPILT TeREV Filter Events with a Sink et 7 9}: 33: 36 DISKSVMSMASTER: CEVL. OS RCTEVLTRANS.83207° 31 * 43) 
: 987 3 
3 3 9 3 
: } 1 9 If .SINKMASK NEQ 0 ! If we have any sinks 
: i g 33) EVLSQUEVEVT (.RAW, .SNK, .SINKMASK) ' Queue the event to the sink 
; 1005 33 END; 
O1FC 00000 EVLSFILTEREVT: 
«WORD Save R2,R3,R4,R5,R6,R7,RB 3 0874 
55 04 AC 7D 0000 mova RAWEVT RAW : 0917 
2 94 99 LRB = SINKMASK + 0919 
94 6 CLRB RCFOUND : 0920 
54 1C A6 DO OOODA MOVL B(SNK) , SRC ; 09 : 
50 1C Ab i 990 1$ MOVAB (SNK), RO 3 09 
50 54 D 1 CMPL SRC, RO : 
50 13 0001 BEQL = «8$ : 
0B AG 0c aS 91 0001 CMPB 12(RAW), 11(SRC) : 0928 
51 12 0001C BNEQ 7$ : 
50 0c AS 9A 0001 MOVZBL 12 (RA AW) : 0931 
FF OF 91 90 CMPBséRO, Beg F + 0933 
13 000 BEQL 6$ F 
01 4 00 CMPB=—séRO, #1 : 0934 
OA 13 00028 BEQL 2$ : 
03 9 91 99 D CMPB =—séRO, «#3 : 
- 47 1€ 000 BLSSU 3$ : 
04 39 91 000 CMPB—séRO, #4 : 
12 1A 000 BGTRU 3$ : 
1 C AG OA 9 2$ MOVZBL 1e(sRC), R1 : 0939 
0 D AS QA B MOVZBL 13(RAW), RO : 0941 
50 00 0D Ad - 31 20 abe CMPCS Ri, 13(SRC), #0, RO, 14(RAW) : 
15 11 9 re BRB 5$ : 
30 DS 00049 3$ TSTL RO : 0946 
07 12 00048 BNEQ 4$ : 
OC AG OD as B 906 CMPW =s-s«dW 3(RAW), 12(SRC) : 0950 
A 11 3 BRB 5$ : 
05 09 4$: CM RO, #5 : 0953 
7 1 7 BNEQ $$ : 
OC AG OD AS ? 9 CMPB } (RAW), 12(SRC) : 0954 
Ff 5$: BNEQ $ 3 
57 1 9 6$: MOVB #1, SRCFOUND : 0959 
4 DD PUSHL SRC > 0961 
5 0D PUSHL RAW : 
0000v CF 98 F CALL e. EVLSFILTERSRC : 
8 8 C BISB2 RO, SINKMASK : 
4 64 p F 7$: MOVL tskch. SRC > 0964 
A 11 é BRB 1$ 3 
§ 57 es 74 8$ BLBS RCFOUND, 11$ : 0968 
4 1c Ab p 77 MOVL B(SNK), SRC : 0971 
9 1¢ Ag F 18 9$ HOVA B(SNK? . RO ; 0972 
18 fh 0082 BEQL eg 3 
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ISRO), #255 
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2, EVLSFILTERSRC 
RO, SINKMASK 
(SRC), SRC 

S$ INKMASK 

SINKMASK, =(SP) 
RAW, =(SP) 

#3, EVLSQUEUEVT 


zane 
> DO 


VAX-11 Bliss-32 V4.0-74 
DISKSVMSMASTER: Evi’ SRCJEVLTRANS. 


(135 
0976 
0981 


0984 
0989 
0991 


0993 


11 
EVLTRANS Event Logging Transmitter 1b-5¢ =| 235: VAX-11 Bliss-32 V4.0-74 p 3 
-000 EVLSFILTERSRE Filter an Event with one Source 1 ~3007 1383 94:33:38 ST EKSUNGMASTERSCEVL SRCTEVLTRANS.B3204°" (123 


ZSBTTL CVE or TERSRC Filter an Event with one Source’ 
ROUTINE EVLSFILTERSRC (RAWEVT, SRCBLK) = 


14 


1o4 
! FUNCTIONAL DESCRIPTION: 


Scan the filters with one source block and if the raw event is 
passed by the filters, return the sink mask value as the value 
of the routine. 

FORMAL PARAMETERS: 


RAWEVT Address of the raw event 
SRCBLK Address of the source descriptor block 


IMPLICIT INPUTS: 
NONE 
IMPLICIT OUTPUTS: 
NONE 


ROUTINE VALUE: 
COMPLETION CODES: 


ee ee eee ee) 


If the event is passed by the filters, return the sinkmask from the 
source. Otherwise return zero. 


SIDE EFFECTS: 


VPWN— DONAVLSUN (QO 


99999339 SRR 


RAM : REF BBLOCK, Pointer to raw event 


SRC : REF BBLOCK, Pointer to source descriptor 


MER SO CONOUE WN“ OOONOULS WN "O0@ 
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1 
1 
1 
1 
1 
1 
1 
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1 
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1 
1 
1 
1 
1 
1 
1 
1 
BEGIN 
4 


ee ee ee ee ee ee ee ee ee ee eee ee ee ee ee ee ee ee ee ee ee 


9 
0 
; 
4 
5 
8 FLT : REF BBLOCK, Pointer to filter 
8 CLASS, Class from raw event 
6 TYPE Type number from raw event 
§ RAW = .RAWEVT; !' Setup useful pointers 
0 SRC = garner 
4 1 FLT = SRC CSRCST_FILTERS); ' First filter is here 
5 § CLASS = .RAW CRAQSV EvICL$]; ' Event code from raw event 
$ ? TYPE = .RAW CRAWSV_EVTTYP); ! Obtain type number 
3 i pecny FLTS FROM .SRC CSRCSW_FILTERS) TO 1 ! Look at all the filters 
BEGIN 
1 3 e ' Compare according to filter 
§ BEGIN ' class and wild codes 
50 SELECTONE .FLT CFLTSV_WLDCOD) OF 


OOnNo 


uw 


a 8 ed ed a a a ts a = = 2 a 4 a 
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oooooo 
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j 
TeRsRe pity with one Source 1h-Fep-1944 9}: 33; § Mt xb Bhadt 
T 

EEvesc WLDCLS_KNOJ : ! Known events 

CEvcs¢ WLOCLS_ALL] : ! ALL types of a class 
t er EQL .FLT CFLTSV_CLASS) 
HEN TRUE 
ELSE FALSE 

co): - ! Class and type must match 
BEGIN 


IF .CLASS EQL .FLT CFLTS$V_ CLASS) | 
Check both ty 8 masks 
-BBLOCK CFLT CFLT$O _TYPESLOGS, 0, .TYPE, 1 


THEN aT poe CELT CFLTSQ_TYPESFILJ, 0, .TYPE, 1, 0] 
ity FALSE 
4 
ce RETURN | - (.SRC_ CSRCSB_SNKTYPEJ-1); } Return the sink mask 
= .FLT + FLTSC_SIZE ! Next filter 
ERD 
RETURN 0 ! No sink found 


003C¢ 00000 SVL OF EL Venere 


AC 00 
44 


Save Re .n3 oR3,R4,R5 


E MO 2(R1), 
EF T2V a, 49. (RAW), CLASS 
F EXTZV OCRAW) , TYPE 
f MOVZWL ; isnes,. 
BRB & 

p CMPZV #14, #2, (FLT), #3 
BEQL 3$ 

FD CMPZV #14, #2, (FLT), #2 
BNEQ 2 

‘ CMPZvV. #0, #9, (FLT), CLASS 
BNEQ 4 

1 BRB $ 

? B1TB (FLT), #192 
BNEQ 

i CMPZ7vV. #0, #9, (FLT), CLASS 

E as T¥PE 4(FLT) 

50 BBS TYPE Vecryts, “f, 

A MOVZBL 10(SAC 

07 DECL =R 
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: ROVE RS ay’ *? 
4$: ADDL2 rts FLT 3 1073 
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; Routine Size: 103 bytes, Routine Base: S$CODES + 0490 
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vent Logging Transmitter 4 VAX-11 BL Liss -32 V E 
Eve sauEeOT rears ate and Queue an Event 1p ~}40-1 984 9}: 33; § DISKSVMSMASTER: chy COSRCTEVL TRANS. 832; Psa? 1388 Vv 
1 1 ZSBTTL CVE SOUEUEYT Translate and Queue an Event : 
} } ROUTINE EVLSQUEVEVT (RAWEVT, SNKBLK, SNKMASK) VSO ALUE = ; 
1 1 te 3 
! } FUNCTIONAL DESCRIPTION: ; 
1085 1! Translate the raw event to DNA standard form, queue it to the : 
1 1; sink block and call the EVLSWRITEVT routine to start the : 
: : output process to the sink node. : 
! 5 : FORMAL PARAMETERS: : 
1 1 i RAWEVT Address of the raw event ; 
1 ¢ 1 SNKBLK Address of the sink block : 
; : SNKMASK Value of the sink mask to use : 
: 5 ; IMPLICIT INPUTS: : 
1038 : NONE : 
199) : IMPLICIT OUTPUTS: 

1198 } NONE 
11 § 1 | ROUTINE VALUE: 
11 1 ' COMPLETION CODES: 
1105 1! 
1B Satie 
11 1 ' SIDE EFFECTS: 
11 1 i 
1110 1 NONE 
1111 1 
Hig y*- 
4333 BEGIN 
1318 LITERAL 
118 EVTSIZE = 300 ! Size of temp event buffer 
111 : 
1120 LOCAL 
1121 EVTBFR : VECTOR CEYTSIZE. BYTE), ' Place to build DNA event 
11 § RAW : REF BELOCK ' Pointer to raw event 
11 SNK : REF BBLOCK, - ! Pointer to sink block 
1124 Eva : REF BBLOCK, ! Pointer to event block 
1125 PTR ! Pointer © build event 
11 § PTRADR, : potatos n memory for parm 
11 $ ! Size : oven ~ 
11 8 EVTDSc_: VECTOR (2), i Descr ptor 
11 DATAPTR, ! Pointer te de a ot event 
iy gee EDAY. robes hy n < da 
! Se 
i § mSECS ! milliseconds aff serend 
11 . 
1135 RAW = .RAWEVT; ' Set pointer to raw event 


ShKSy trent + 1; 
EvTDSC c fo) = .E90 CEvasw EvisiZe); ! Build descriptor of event 
Eva CEVaST_EVENT 
EVLSPRINTLOG ! Log event if requested 


$B1TPOSITION oe owns 
ZASCID ‘Events ost 
SNK CSNKS$L *ONKLEN 

EVTDSC 3 


~~ 


EVLTRANS Event ing Transmitter 1b-5e -1984 01:35: VAX-11 Bliss-32 V4.0-7 E\ 
yO%~000 at Srens ate and Queue an Event 30071382 94:33:29 DISKSVMSMASTER: CEVL. Ske EVLTRANS .632; Pase 485 vw 
PTR . EVTBFR; ! Pointer to build DNA event 
SNK = .SNKBLK; i Point to the 4 : 
? : z sum CSNKSW_EVTCNT] GTRU EVLSC_MAXEVTCNT ! Event queue too long? 
‘ ath LAL sigh hasnt, been ton 
! sink has not been los 
“$2 NOT .SNK went. SNKLOS] ! of this type yet 
33 rf: AND .SNK 
re NEQ 0 
4 THEN 
ee $8 BEGIN 
4 EVLSGLOLOSTEVENT } Build lost event message 
64 ? AY the correct sinks 
65 C  NKMASK AND NOT ,SNK CSNK$B_ SHKLOS 
66 : 2 SNK CSNKSL_EVTBLI, Link in at tail of queue 
6 Z Eva Reena address here 
es 5 SNK tiucse SNKLOS) ! Remember the sinks we lost 
0 2$ SNKSO SWKLOS OR »SNKMASK; | ! So only one message 
q) SNK tSnksu eV TCATJ ! Count another even 
i 3 
Ne ) 
Ong 
79 65 
e 
5 


! We lost the event, so done 


ELSE 
SNK CSNKS$B_SNKLOS] = FALSE 


No events lost now 


SANS NNO 


MPN SSVSKRANASSS 


IF .RAW CRAWSW_BYTES) ' Quick check of raw size 
RU _EVTSIZE = (-27+37) ' to see if it fits in buffer 
OR .RAW CRAWSW_BYTES) ! Or if too small 
_ LSSU SBYTEOFFSET(RAWST_DATA) 
BEGIN 
SIGNAL (EVLS_EVTSIZ) } st nal some thing bad wrong 


ee ee ee a a mt et kd ad nd od ad dd nd od = = 8 a 8 2 2 


RRL SSS LENKA LOO 


S 
2 


ignore event 


EVLS HL IAN 


RAW CRAWST_SYSTIM) 
HALFDAY, SECS, mses 


former. raw time to DNA 


ee ce me ee ce ee me ce ce ee ee em me ce ec ee a ee ee eB me ee ee a a ed ae od 8d oe 8d dd ed 
me ee ec ce ee ew a ee me em ee ed ed ed ed dd dd dd dd dd 


ee NNN YY Dt ot ot ot ot ot ot or a? oy at ot at ot ot ot nt ot ot et oe et et 
zz 
m 
S 
2 


gar BHE ay hat 1 = Be seconds, .. 


o 
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ent bogging Transmitter 18-5 Sep-1 


y0e-000 Ey 
VL$Q T Translate and Queue an Event -Sep-1 
} ' 
} Build the DNA format event in the buffer 
1 
1 CHSWCHAR_A ( 
1 CHSWCHAR-A ( (SNKRASK. PTR); 
PTR cHSCOP 


RAW CRAWSW_EVTCODE), 
LFDAY, 

CS 
eEc§ 


PEW 
KY ROMININIVA HOM 


PTR = CHSMOVE 


-EVL$GB_LOCALNODE, 
eve GT_COCALNODE, 


CHSWCHAR_A (.RAW CRAWSB_SRCTYP], PTR); 
oo «RAW CRAWSB_SRCTYP] OF 


Fevcsc. SRC_NON 
EVCS$C"SRC~ tN, nEveSe. inc CIR, 
evtsc_$ 


a a ed a bt 


SSUSUTUNNSSES SE 
MEUM "OOP UE UNO OONO —~ = 
AEN OWOBNAVE WN" O OONAOUL WIN O 


BE 
PTR c CHSMOVE 


40 

41 CHSRCHAR (RAW CRAWST_SRCIDJ) + 1, 
ae RAW CRAWST_SRCIDJ, 

4 PTR 

64 

45 END ND: 

4 Cevcsc SRC_NOD] : 

48 PTR = CHSMOVE 

49 


CHSRCHAR (RAW CRAWST_SRCID] + 2) + 3, 
7. RAWST_SRCIDJ, 


END; 
CEVCSC_SRC_ARE): 


TES; 
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! Copy the associated data with the event. 


3c 92:38:57 biSkbumsmastensce 


CHSUCHAR, A (CHSRCHAR(RAW CRAWST_SRCIDJ), PTR); 


Just a code byte _ event 
The sink mask oyee 

Build more of the header 
Event code 

tomy ond time in dna format 


Just a dummy fill char 
Place to put it 


Put in the source node 
in node id format 
from a special buffer 
Built in advance 


Copy the source type 
and id depending on type 


Nothing for no source id 
Copy ASCIC string 


Line id is a counted string 


Copy node id from ra 
its word (adr) cecte’ (name) 


' Count and address with str 


! Copy area number 
! Copy the area number 


ti SRCTEVLTRANS.B325 39¢ 438 


2 
o 
a 
. 
a 
° 
2 
° 
7 
o 
© 
e 
° 
e 
. 
° 
. 
ev 
° 
2 
a 
eo 
8 
e 
. 
e 
. 
o 
o 
7 
o 
a 
e 
2 
o 
© 
° 
° 
oO 
oe 
o 
. 
e 
. 
” 
* 
o 
. 
eo 
. 
e 
e 
e 
~ 
e 
© 
o 
. 
e 
. 
e 
8 
. 
o 
° 
> 
e 
° 
° 
. 
° 
° 
e 
° 
e 
- 
e 
- 
o 
7 
e 
- 
o 
° 
@ 
° 
e 
~ 
° 
. 
a 
. 
e 
. 
e 
* 
e 
. 
e 
. 
e 
2 
° 
@ 
. 
e 
os 
o 


Se ee Se Se Ge Se Ge Ge Be Se Se Ge Fe Se Ge Se Ge Se Ge Ge Se Se Se Ge Ge Ge FF Se Se SF SHSs Se Se SF SHS4Se Se Se Se Seas 


ae et a St tt At Pd ad 4) a dD a et tt tk ts se a et td tt tt 


Evesautued 


SONSAFANASSHVS ALAR AS SooNo- 
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00 74 73 6F 4C 20 73 74 6E€ 65 sae 45 05 Serrp 


7% 6€ 65 76 65 20 64 65 75 45 bggnd t 6 P.AAM: 


ing Transmitter 
T Translate and Queue an Event 


K 11 


1e-Sep-1986 12:28:31 | DISKSVMSRASTER’ 


PTR = vag 
U CRawsu arg = SBYTEOFFSET(RAWST_DATA), 


fAu _- BATA 


Compute size of event in dna p tocnats allocate a dbk for it 
S 


and copy it to the block. The d 
List in mA Block for transmission. 


SIZE = .PTR = EVTBFR: 
EVLSALLOCDBK 

«SIZE + EVQSC_SIZE, 

.SNK CSNKSL_EVTBLJ, 

Eva 
eva Céva$w_EvTSIZE) = .SIZE; 
CHSMOV VE 

SIZE é 

EVTBFR, 

Eva CEVOST_EVENT) 
SNK CSNKS$W_EVTCNT) = 

. SNK ome NEVTCNT) +1; 
EVTDSC = .€vQ CEvOSW_EVTSIZE): 
EVTDSC £93 s eft CEVa$T WEVENTI. 
EVLSPRINTLOG 

$B1TPOSITION CELGSV. QUEEVT), 

oe ts Queued gvent’. 

SNK CSNKSL_SNKLEN 

EVTDSC 


EVLSWRITEVT (.SNK) 
END; 


80960000" 00086 |” * 


- 


queued at the ond of the 


Size of event 
Allocate a buffer 


size of buffer 
Queue at end of queue 
Return address here 


Set its size 
Copy the event to buffer 


Count another event 


Build descriptor of event 
Log event if requested 
Bit controlling loggin 
Header text . oom 
Ncb is extra info 
Descriptor of event 


Start the output if needed 


2 


-PSECT SPLITS,NOWRT ,NOEXE ,2 


TONG RS tia Lost\<0> 


“ACL * Guus $$, event\ 
LONG 694 
ADDRESS P.AAM 


v4. ae He 
:CEVL. OsRe EVLTRANS.B32: ie qa 


1 
Se e000° Eve sauEGEOT *reanct ty Queue an Event 1$-bep-1944 94:33:88 PE KSVMSRAST ERSCEVL SRCTEVL TRANS. B32; rie a 
-PSECT SCODES,NOWRT,2 
OOFC 00000 EVLSQUEUEVT: 


WORD Save R2,R3,R4,R5,R6,27 : 1080 : 

5 FEB CE 95 99002 HOVAB =$2i (8 BS. &p ; 

4 AC MOVL RAWEVT, RAW : 1135 ; 

3 8 AE MOVAB EO TBrR’ PTR : 11 6 ; 

é 9 AC OD VL NKBLK, SNK : 11 : 

oocs =F c A CMPW = 44(SNKS, #200 ; 1139 : 

49 18 0001 BLEQU es ; : 

50 2F a6 9A 0001B MOVZBL (SNK), RO + 1143 ; 

3 D F MCOML RO, RO : : 

oc AC D BITL RO. SNKMASK + 1146 : 

01 1 puee 1$ e . 

of A F 1$ PUSHAB EVQ + 1150 : 

28 OA Dp C PUSHL  40(SNK) + 1152 : 

51 50 D F MCOML RO, R1 + 1151 ; 

7E 0c AC 31 CB : BICL3 1. SNKMASK, -(SP) : ; 
0000v CF cB 00 CALLS #3, EVLSBLDLOSTEVENT : : 

2F Ab : es ¢ BISB2  SNKMASK, 47(SNK) : 1156 ; 

C Ab 2 41 INCW 44(SNK) : 115 : 

50 as 44 VL Fv RO > 1159 ; 

10 AE OA Ad 3C 00048 MOVZWL 9<RO), EVTDSC : 3 

14 AE 0C AO 9E 0004 OVAB  12(RO). EVTDSC+4 + 1160 ; 

10 AE 9F 0005 PUSHAB EVTDSC + 1165 ; 

30 A6 OOF 004 PUSHAB 48(SNK) : ; 

0000" CF 9F 000 SHAB P.AAJ > 1163 ; 

5 od 0005¢ PUSHL #5 + 1165 ; 

00006 CF 4 §B O55 CALLS #4, EVLSPRINTLOG : ; 

04 06 RET + 1141 ; 

2F Ab 94 00064 28 CLRB = 47 (SNK) > 1173 F 

0122 = 8F : B1 00067 CMPW 30s (RAW), #290 : 1178 : 

3 1A 0006C BGTRU 3 ; : 

1€ B1 O06 CMPW 3s (RAW), #30 : 1180 ; 

E i€ 000 BGEQU 4s ; : 

000000006 8F DD 00 i 3$ PUSHL HEVLS EVTSIZ + 1183 ; 

000000006 00 01 FB 0007 CALLS , LIBSSIGNAL ; ; 

4 RET : 1182 ; 

AE F 1 4$ PUSHAB MSECS : 11 ; 

AE gt PUSHAB SECS F : 

AE 9F 7 PUS HALF DAY : : 

A? OF A PUSHAB 2(RAW) : : 

00006 CF 6 F CALLS 4&4, EVLSJULIAN ; 3 

; 1 MOVE #1. (PTR)+ : 1198 : 

oc A MOVB SNKMASK (PTR) + : 1199 : 

é OA Az 99 MOVC3 #2, 10(RAW), (PTR) : 1207 : 
6 6 9 MOVCS #2, HALFDAY, (R3) : : 
6 4 «AE A MOVCS = #2, SECS. (83). : : 
6 8 A A MOVC # s 3 3 
5 0000° gr A AC mOVZBL EVL koa : 1212 : 

63 0000" CF 8 0008 moves, R ae GT LORE one. (PTR) > 1214 : 
9 0c A? 9A 00087 MOVZ7BL 1 a > 1217 ; 

BB MOVE = RO, ; ; 

FF OF rf CAP R is + 1221 : 

01 9 ¢ CMPB=SséRO,, #1 > 1222 : 
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CONDO PVN OS BOTW 
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o oa 
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SU Gan Vie me 
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“30(RAW), (PTR) 
R, RO 

PTR, SIZE 
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0(R7) 

VTBFR, 12(R7) 
EVTDSC 
EVTDSC+4 
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0000v CF 


S SF S=Saq 


& 
os EVLSPRINTLOG 
#1, EVLSWRITEVT 
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3; Routine Size: 331 bytes, Routine Base: S$CODES + 04F7 


at bt ts bd 8 
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po yeeesuesutemset nets 
SRVSEAEUS 


SELES 


MEW =O OONOUS WN Oo 


es eh te eee 
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ost Event Event 1ergeb13BE 93:38:88 Wed ywBhASFeRschoc seceve rrans.03204%° c165 


VENT Build a Lose Event Event’ 
ENT (SNKMASK, PRED, EVQRTN) :NOVALUE = 


vent Loagin Transmitter 

VLSBLOLOSTEVENT Build aL 
ZSBTTL ‘EVLSBLDLOSTE 
ROUTINE EVLSBLDLOSTEV 


irc 
} FUNCTIONAL DESCRIPTION: 

} Build a lost event event and queve it to a sink block. The sink 
! mask for the lost event is passed here. The current system time 
} is included in the event. 
FORMAL PARAMETERS: 
i SNKMASK Value of sink mask for event 
! PRED Predecessor for insert into queue 
: EVQRTN Address to return address of event block 
IMPLICIT INPUTS: 
NONE 
IMPLICIT OUTPUTS: 
NONE 
4 

‘ 

1 

1 

i) 

i] 

' 

t 

i] 

‘ 


i ROUTINE VALUE: 
i COMPLETION CODES: 


NONE 
i SIDE EFFECTS: 
i NONE 


BEGIN 


LOCAL 
Eva : REF BBLOCK, 


SYSTIM =: VECTOR (2), 
HALFDAY 


PA.A.A.ALA AINA WIAA NAIA 


WWIII IAI IAI IAI PIPIPIPININOPINYD) 9 I I 3 00 


! Pointer to event block 

! Pointer into event block 
! 64 bit system time (now) 
! Julian half day for now 
!' and the rest 

! of the dna time 


FUN“ OODNAVE WN “QO OODNAUES WN ("OOOO V EW "O0W 


SECS, 
MSECS 


EVLSALLOCDOK 


EVQSC_SIZE + 22, ! Thats big enough 
PRED, ' In correct queue 
Eva ! Return address here 


! Obtain an event block 


SGETTIM 
Sane = SYSTIM 


rs 


DONO ULS WO DOnNOu 


! When is now 


RaPIPIPIFIPIPIPIPIPPOPINIPIPININPINPIPUDINIY 8 9 0 a tt at ot ot to ot = I = ab 8 
. . . o—e: 
= err - ome meme 
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TRANS Event Logging Transmitter 16-Sep-1984 01:35: VAX-11 Bliss-32 V4.0-74 Page 43 
$c ~000 EVLSBLDLOSTE ENT Build a Lost Event Event 1 =3e0n 138% 94:33:39 DISKSVMSMASTER: CEVL.SRC EVLTRANS.B32:1> (16) 
1365 1 
1 1 EVLSJULIAN ! When is it really according 
1 1 ( } i pg ener. 
1368 1 SYSTIM, ! bit time 
1369 1354 HALFDAY, SECS, MSECS ! Dna time 
1344 1388 7 
! LK 1 ; PTR = EvQ CEVQST_EVENTI; ! Point to place to build evt 
1374 1 25 CHSWCHAR_A (1, PTR); ! Just a code byte for event 
1375 1 60 CHSWCHAR-A (.SNKMASK, PTR); i The sink mask byte 
! o6 } 2) PTR : CHSCOPY ! Build more of the header 
1378 1 6% - UPLIT WORD (EVCSC_NMA_LOS), ' Event code 
1379 1364 » HALFDAY, ! Date and time in dna format 
1 1365 - SECS 
1381 1 66 » MSECS, 
1 ae 136 ‘ ! Just a dummy fill char 
: 8 ! 44 B -PTR ! Place to put it 
1385 1370 
1386 1371 PTR = CHSMOVE ! Put in the source node 
1387 1 a ( ! in node id format 
1388 137 -EVL$GB_LOCALNODE, ! from a special buffer 
1389 1374 EVLS$GT_COCALNODE, ! Built in advance 
1390 1375 .PTR 
1391 1376 3 
1 3 1377 
lez 1378 CHSWCHAR_A (EVCSC_SRC_NON, PTR); ! Specify the source type 
1395 1340 Eva CEVQ$W_EVTSIZE) = .PTR - EvQ CEVQST_EVENTI; ! Set the size 
1396 1381 -EVQRTN = .EVQ ‘Return the address 
1397 1336 
1398 1383 1 END; 


-PSECT S$PLITS,NOWRT,NOEXE 2 
0000 00084 P.AAN: .WORD 0 ; 
-EXTRN SYSSGETTIM 
-PSECT SCODES,NOWRT,2 
OOFC 00000 SW.SELOLOG TENONT 


SE 18 C2 0000 SUBL2 #24, SP : 
5E DD 0000 PUSHL SP : 1340 
08 AC DD 7 PUSHL PRED > 1342 
2 DD A PUSHL a3 > 1341 
0000v CF FB ¢ CALLS #3, EVLSALLOCDBK : 
10 AF OF PUSHAB Im > 1349 
000000006 00 01 FB 00014 CALLS #1, SYSSGETTIM : 
C AE 9F 00018 PUSHAB MSECS : 1352 
C AE OF 3 PUSHAB SECS : 
C AE 9F 0002 PUSHAB HALFDAY : 


ects 


63 
OA Ab 
; Routine Size: 106 bytes, 


Transmitter 


Event Loggia 
EVLSBLOLOSTEVENT Build a Lost Event Event 


0000G CF = o4 fs ; 
boo RE 
; i | 
046 =#A 
0000° CF 
4 AE 4 
ee Res 
“$6 ooo" CF SA $3 
0000° CF 4 8 6 : 
83 01 3 0050 
5 57 A3 00060 
“x 56 DO 00065 
04 00069 


Routine Base: S$CODE$S + 0642 


if3ee 


pal9ge 42:28:51 


SYSTIM 


X-11 B ss-32 V 4.0- 
STER: cv EVL. 


Dts SKSVMSA 


#4, EVLSJULIAN 


(R6) 


E evisen. Coa, 
RD, EVES 


RO 
+ _LOCALNODE, 


PTR)+ 
Rv. PTR, 10(R6) 


R6, @ 


@EVORTN 


(PTR) 


SRCTEVLTRANS.B32- hate 
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ZSBITL CVE SME TERROR Check and Report a Network Error’ 
ROUTINE EVLSNETERROR (CODE, STATUSVAL, IOSBADR) = 


144 
' FUNCTIONAL DESCRIPTION: 


Check the status value and/or the iosb status code of 

an io request to the network. If anything is amiss then 
atppet the error to the log and return failure. If all is 
well, return success. 


Fe 
SELsSRoRSS BF 


WWAWIWNIA A. AWA AAAI AAA 
SSS 
fo) VISA —OOONOu 


MAP 
IOSBADR : REF BBLOCK Its the address of a block 


' 
i 
i 
' 
i 
10 ! 
1 ; FORMAL PARAMETERS: 
ig i CODE Value of the EVL condition code to signal 
14 ! STATUSVAL Value of status from a network reques 
15 99 ! IOSBADR Address of the iosb of a network request 
i 4 : a value of zero implies do not check the iosb 
18 0¢ i IMPLICIT INPUTS: 
1 0 ! 
0 04 ‘ NONE 
1 05 ! 
§ 88 ! IMPLICIT OUTPUTS: 
0 ! 
4 0 ! NONE 
5 0 ! 
§ 1 ! ROUTINE VALUE: 
; : COMPLETION CODES: 
9 1 i Success if no error, failure otherwise. 
: ’ Any errors are signaled so they will be logged. 
: SIDE EFFECTS: 
1 i NONE 
5 1 
, BEGIN 
9 
0 
4 


LOCAL 
IOSBSTS 


If Nor . STATUSVAL 
SIGNAL (.CODE, 0, .STATUSVAL) 


Hold its value here 


Signal any error here 


Foe ak at wh ee 


ANF UO COnou 
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5 10SBSTS ~ ! Obtain the value 
H i - IOSBADR EQL 0 ! Unless there is no block 
é 40 SUCCESS ! in which case use success 
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PRESSE LEL EEE 
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; Routine Size: 


12 
Event ing Transmitter 1b-Sep-1 4 01:35: VAX-11 Bliss 
eck and Report a work Error -Sep- :28: 
EVE SNE TERROR Check and R t a Network E 14-$ 138% 9} 3 36 DISKSVMSMAST 
144 ELSE 
144 -IOSBADR (0, 0, 16, 0) ! Status value of iosb 
172 END; 
1002 con” - 10S8STS ! If its bad, signal it 
1e09 SIGNAL (.CODE, 0, .1OSBSTS) 
gg 
1431 RETURN .STATUSVAL AND .IOSBSTS AND SUCCESS ! and return problems 
1452 END; 
000C 00000 EVLSNETERROR: 
«WORD Save R2,R3 
53 000000006 00 9 0008 MOVAB LIBSSIGNAL, R3 
08 83 AC E 000 BLBS STATUSVAL, 1$ 
AC 0D sit PUSHL STATUSVAL 
7E 04 0001 CLAL (SP) 
04 Ag DD 0001 PUSHL ope 
63 03 F 001 CALLS #3, LIBSSIGNAL 
0c aC DS 00018 18: TSTL OSBADR 
1 018 BNEQ $ 
52 : = 01 MOVL #1, IOSBSTS 
4 11 . BRB 3g 
52 oc af $3: MOVZWL @IOSBADR, geasers 
OA E $: BLBS 10SBSTS, 4 
00 PUSHL 10SBSTS 
E 04 B LRL (SP) 
04 AC OD PUSHL ope 
$3 fe CALLS #3, LIBSSIGNAL 
0 D 4$: COR, 10SBSTS 
50 08 AC cB BICL3 RO, STATUSVAL RO 
50 01 FF 0 EXTZ2v #0, #1, RO, RO 
4 0004 RET 


65 bytes, 


Routine Base: $CODES + O6AC 
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BEELER PEEP PEEP PPP EEE EEE 
FESS3s 
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SBVERR UW SSO VE 


FUSUSISUSUSUS SISTINE = ES 
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Teer Sueite an Event to a Sink Node 13-808-138¢ 94:33:39 NTEKSVMGRASTERSCEVL SRCTEVLTRANS.B3204° (18) 
ZSBTTL se bear TEVT Write an Event to a Sink Node’ 
ROUTINE EVLSWRITEVT (SNKBLK) :NOVALUE = 


3 
o 


'o¢ 


L 
I 
1 
1 
i 
i FUNCTIONAL DESCRIPTION: 
1 
1 
1 
1 
1 


If a write is in progress, just return from here. 
if the event queue is empty, close and delete the sink 
f the eyerus bits are set, but in any case return from here. 


If the sink 


PAA «= @ 


WN OOONOUNLw = 


is not open, open it. We will return here when 
letes. 


When we find the event queue empty, we get a timer which 
will activate the close routine. fhe Link will be reopened 
when an event is requeved. If an event is written we cancel the 
timer entry. 
FORMAL PARAMETERS: 
SNKBLK Address of the sink block 
IMPLICIT INPUTS: 
NONE 
IMPLICIT OUTPUTS: 
NONE 


ROUTINE VALUE: 
COMPLETION CODES: 


NONE 
SIDE EFFECTS: 


IS ee 


SAISIM NISSEN SOF 


Oe ee ee tt tt tt tt Lt te te tS 


: REF BBLOCK, 
Eva : REF BBLOCK, 
STATUS 


Pointer to sink block 
Pointer to event queue block 
Local status value 


PRAVLSSSLEARANLESSELSEALAVSS 


RIP PIMP PIMP III IIA 8 ad st st at a tt tt tk kd dd od 


Point to sink block 
If some action in progress 


SNK = .SNKBLK; 
IF .SNK CSNKS$V_STS_BSY) 
RETURN 


ee LS LS | ___.._.._ e  e e— —LeeeeeeS S S 


PUPP III BS BP BP BB BEEP EEE E 


Go away and wait for done 


<m 


o 


IF NK CSNKSL_EVTFLI ! 
SNK CSNKSL_EVTFLJ 


BEGIN 
IF ,SNK CSWKS$V_STS_DELJ 


~SNK CSNKS$V_STS_CLSJ 
EVLSCLOSESNK (.SNK) 


be > te 


PPUPVIVIVSIWSITSITSIVS 


SSOLERFENASSON 


SNK CSNKSV_STS_TMR] = TRUE; 
nee TIMED_QORK 


EVLSCLOSESNK, 
SNK, 0, 
EVLS@_CLOSEDELAY, 
. SNK 


WN 9 OONAULS AR" QWOnOu lino : 


RIP IAAP IPIPIPI HN AAALAPIPINIPIPIPIPD HMA MEPIPIPIPI HME BBB PPP EE FMAM AAAOPINNONINY 


_ END 
RETURN 
END 


—-OO0®@ Mun 


WI 


IF .SNK CSNKSV_STS_TMRJ 
THEN 


anes erg ae etre a ek ah ee Nae a 


BEGIN 
WKQSCANCEL_TIMED WORK 


FUFUSUSIS SISSON 


eg 
a Te sus STS 4 


eva. ey ae 3 


SNK 
evtsasivonet. OS : 


So 


jJ}=T 
(EVL$Q aveut ¢ 
VIS SIZE 


FULUSIUSUSVLU SULIT SUSI ST SVASU ASIST IUST IIS IASUSISUASIOSIOSIASIOS OASIS OOS OOSIOSOASIOSISIS 


IF NOT .SNK CSNKS$V_STS_OPN] ; 
THEN 


SNS 
FUSS IN 
SSFERTSS INE oe aera 


Wr — VANOURUN—OO 


FUPVPUPUSFSVAP ASSN 


erste 
EVLSOPENSNK (.SNK); ; 
RETURN 


ee me ee a ee ee a ee ee ce ee ae ce ed ee ce ee ee et i me ee ee ee ee me ee ee a ed ed ae ed ed od od od 
a ee ee ee ee ee ee ee ee ee ee rr i ee ey 


ww 


4 
4 (SNK); ! 
4 SNK CSNKSV_ “STS TAR) = FALSE ! 
4 END 
4 3 

66 4 

6 4 EVQ = .SNK CSNKSL gyre 4 

¢ 2 SNK sieee ROUTINE = ti suri TEDONE: ! 
¢ 4 IF .SNK CSNKSL_SNKADR] EQL .EVLSGT_LOCALNODE<0,16> 


Win FERS art Bean Even to a Sink Node fe 2:38:59 Di ScSumsnastenscev 


If event List is empty 


If delete or close set 


Close and deallocate sink 
Set bit for timer active 
Set work to perform close 
Close after the delay 
Sink is the parameter 


Time delay 
Request i4 is sink address 


and we are done here 


If close timer is active 


Cancel the work element 
Clear the bit 


Point to the first event 
Setup the routine to go to 


! If to local receiver, 


Write is in progress 


Wik i gyeue event to local receiver 
, EG Cevdst EVENT); 


write successful 
oe simulate 1/0 completion 


If sink is not open 


| Spee the sink node Link 
we will come back a later 


Vi SRC TEVLTRANS.B3204 °° (185 


<m 
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EVLTRANS vent Logging Transmitter 16-Sep-1984 VAX-11 $s-32 V4.0- e 
yO%-000 Eve oR Seat Surite an Event to a Sink Node 13-808-} 382 9}: 33; § DISK $V nes STER: aoc shcSevi trans. 832; Pao ab 
3 } ¢ 4 } STATUS = $010 ' ! Do the write 
:1 Pi § EFN = EVLSC_ASYNCH_EEN 
31 P 1 CH NK CSNK W * se: '¢ hannel in sink block 
214 P 157 FUNC = ios. O$_yRIT TEvarK vark, i Write data t 
3 1 P 1 i 10S6 = ~ ! he, status yoy 
3 1 P 1 ASTADR "Eyts meu 108 ' 0 Our general ast routine 
3; 1591 P 1574 Hie z ! nk block is parameter 
: 1 % P 1575 = EVO atfvesr EVENT] i H dress of event 
: 159 P 1 i: = .EVa CEVOSO_EVTSIZE) i Size of event in bytes 
eg 
; ! } 3 IF NOT r evonETEnnon (EVLS_WRTEVT, .STATUS, 0) ! Report any error 
3 } rs ! 1 EVLSCLOSESNK (.SNK) ! Close the sink on an error 
; 1980 : : SNK CSNKSV_STS_BSY] = TRUE ! Write is in progress 
: 1602 1585 END; 
001C 00000 EVLSWRITEVT: 
eWORD Save R2,R3,R4 3 1454 
52 94 as po MOVL § SNKBLK, SNK : 1505 
4 E A2 9E 00006 MOVAB  46(SNKS Rs : 1507 
01 64 01 i BBC wi, (R45, : 
50 34 A F F 1$: MOVAB 36(SNK), RO + 1514 
50 4 A p 13 CMPL 6(SNK). RO ; 
¢ 1 BNEQ 3 
03 64 : 19 BBC #3, (R4), 38 + 1517 
009¢ 31 1p as: BRW ; 
9 64 4 9 $: BBS #4, (R4), 28 : 1519 
64 9 4 BISB2 #32, (R45 : 1344 
D 7 PUSHL SNK : 1530 
0000° cr F 9 5 EVL$Q_CLOSEDELAY + 1526 
: D4 D CLRL = = (SP) : 
§ BD F PUSHL SNK : 1528 
0000Vv i F 1 PUSHAB EVLSCLOSESNK : 1526 
00006 CF 5 FB 3 CALLS #5, WKQSADD_TIMED_WORK 2 
OA 64 E1 4$: BBC #5, (R4), 5$ : 1338 
DD F PUSHL SNK > 1541 
00006 CF FB 1 CALLS WKQSCANCEL_TIMED_WORK : 
$4 9 BA § BICB ; eeyth : 154 
2 A po 5$: MOVL 3 Shik : 154 
4 «OA 0060v CF 9E p MOVAB  EVL USuj feDong 20 : 154 
18 A2 0000" cF 1 0 E cMPZ7V #0, EVLSGT {POCALNODE, 24 (SNK) : 1549 
F 8 BNEQ 6 ; 
64 0 BISB2 # (RA) ; 1552 
Cc US OOF 50 PUSHAB 10(EV : 1 
7E A ad 3C 0006 MOVZ2WL 1 (FV) ; 
00006 i f PUSHAB EYL QUEUE “EAT : 1553 
00006 CF 3 FB CALLS #3, WKOSADD_WORK_ITEM : 1554 


Ey, Trans svent bogging Transmitter 


VLSWR T Write an Event to a Sink Node 


oc A2 oF + 

0000v CF fe 

08 4 E86 

¢ 0D 

0000v CF fe 
7? 

re ft 

7E oA AB C 

* 53 Bp 

sas * 3 CF oF 

Cc h€UA F 

3 ge 

7E OA A ss 

000000006 00 O¢ fe 

0 DD 

000000006 8F DD 

FFO6 ce fe 

8 E 

0D 

0000v CF FB 

4 

64 02 83 

04 


3; Routine Size: 200 bytes, Routine Base: S$CODES + 06ED 


iL2 
1 ~Sep- 


1984 93:38:59 
#1, 12(SNK) 


#1, EVLSASTWORK 
(R4), 7$ 


#1, EVLSOPENSNK 


< 
a 


WRTEVT 
SULSNE TERROR 


ee ee pet el Peer 
“+ 


> we 


EVLSCLOSE SNK 
(R4) 


= BYDRBAVY I BBV—B—-MOH—— 1 1 


™m 
. 


VAX-11 Bliss-32 V4.0-74 
DISKSVMSMASTER: CEVL.SRC 


Sev trans.83201°° 


Be Se Ge Ge Ge Ge Se Ge Ge Be Ge Fe Be Ge Be Se Ge Se Se Se Be Ge Se Se Fe Ge Ge Ge Se 


1579 


<m 


~ 
@ 
= 
yn 


22 


g 


— 
wi 


—O 


PAPA AAO 


PAAAAAAAAAAAAO 


ACOAAAO 
Ww 


SITS 
Wwr=o0 


SOSSEETEE 


eee a ed ce ee ce ed ce ce ee a ceed ed ee ee ce ce ee ee ee ce ce ce ee ed ee ed ed ce ee ce ed ce ce ee ee ed ee ce ee ce ce ce ce ce ee ee ae ee ee ee ce eed 
ala 


PAPA 
Ooo 


ES 


12 
7 = = 8 8 = = e ne 
+28 oN " ce os Event Write 1p-Sen-1984 94:33:28 NP ERSIMGMASTERS CHUL SRCTEVLTRANS.B3201"" (19) ¢ 
ZSBTTL ‘EV Suni TEDOWE Finish Up an Event Write’ 
ROUTINE EVLSWRITEDONE (SNKBLK) :NOVALUE = 


14 
! FUNCTIONAL DESCRIPTION: 
This routine is queued as work by the ast completion of 
a write of an event to a sink. The parameter is the sink block. 
Check for an error on the write and if there was none, then 
Soqueue the event. If there was an error, close the sink. 
This will cause the sink to be reopened, creating a new logical 
Link and a retransmission will occur. 
FORMAL PARAMETERS: 
SNKBLK Address of the sink block of concern 
IMPLICIT INPUTS: 
NONE 
IMPLICIT OUTPUTS: 
NONE 


ROUTINE VALUE: 
COMPLETION CODES: 


NONE 
SIDE EFFECTS: 
NONE 


oe 


en 
L 


<m 


3 


CSS OSSS SESS SSS SS Sam Te 


API AAAI AIP POPIPOPOPOPOPIPUPIIIIYD 9 tt at tt tt 


Oo 
oO 


Oo 
oc 


AAAS 


BEGIN 


LOCAL 
SNK : REF BBLOCK 


Pointer to the sink block 


Set the pointer 
Write is not in progress 


SNK = .SNKBLK; 
SNK CSNKS$V_STS_BSY) = FALSE; 
IF EVLSNETERROR 


(EVLS_WRTEVT, TRUE, SNK CSNKS$W_IOSB] ) 
THEN 


EVE SPEALLOCDBK ure CSNKSL_EVTFL] ); ! No error, dump that event 
$ SNKS$SW_EVTCNTJ = !' Reduce count of queued evts 
SNK CSNK$W_EVTCNT) - 1; 


EVLSURITEVT (.SRK) 


Check for an error 


MFR QO OONAUES WIN“ O OONOULS WN Oo 


P_EAQAAAAAAA AAA AA AA AA AAA AAA A AO 


and write the next one 


eo ee ed a ed ed ed td ds So 4 9 9 2 YS St SSS 


Payaneee 


mo 


BEGIN 
EVLSCLOSESNK (.SNK) Close the sink to try again 
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EVLTRANS Event Lo Transmitter $ep-1984 VAX-11 Bliss-32 V 
vOL~000 EVLSWRIT opR an Finish Up an Event Write 18: Hat 7 9}: 33: 9 DISKSVMSMASTER: 
1683 1643 END 
1 182 END; 
0004 00000 EVLSWRITEDONE: 
«WORD Sav 
53 06 ac 00 seve fe SNK 
2 OA 02 BA BICB2 if 46 (SN 
OC Ad OF A PUSHAB 12(SNK 
1 DD PUSHL 
000000006 8F ODD F PUSH avs WRTEVT 
FEDD CF FB 15 CALLS QLSNE TERROR 
3 1A BLBC 
24 A2 0D 00010 PUSHL  36(SNK 
0000v CF 01 FB 0 9 CALLS #1, Vc SDEALLOCDBK 
2c Ag B7 000 DECW  44(SNK) 
52 DD 00028 PUSHL SNK 
FFO9 = CF 01 FB OO02A CALLS #1, EVLSWRITEVT 
04 99 F RET 
52 DD 99 1$: PUSHL SNK 
0000v CF 01 FB 000 : CALLS #1, EVLSCLOSESNK 
04 0003 RET 


; Routine Size: 56 bytes, Routine Base: $CODES + 0785 


EV  SRCSEVLTRANS. B32; A a «195 


De Se Be Be Be Se Se Se Se Se Se Sete BeBe See 
7 
oa 
w 
wn 


<m 


~ 
rd 
2 
nn 


Ss 


SSSeERE t 


<m 


PABA 
SSNS 
NOU WN 


So 


SEESESEESS 


SAPAVLS 


oo 
CoN 


SIN NIO A AAA AAAAO 
Wwn— 


VY 
ESE 


SS 


SNS NSS 
ed ed eh od to od td 


SOONOUEWN Oo 


cme ee me ee ee ec a ed ad ed ed ed a od wd = nd a a 8 ts 8 = 


Be Se Se Se Se Se Se Ge Se Ge Be Se Se Ge Se Se Se Se Ge Se Ge Ge Se Ge Ge Se Se GF Ge Ge Ge Ge Ge Ge Se Ge Se Se Ss Se Ge Se Se Se Se Se Ge Ge Se Se Fee Se Se eee ee 


ror 


—~ 
= 
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vent ing Transmitter -Sep-1984 01:35: VAX-11 Bliss-32 V4.0-74 Page 53 
EVESGPENSAK Sopen a@ Link to a Sink Node ~3007 1382 94:33:29 DLSKSVMSHASTERSEEVE SRCTEVLTRANS.B3204° (283 
ZSBTTL. ‘EVLSOPENSNK Open a Link to a Sink Node’ 
ROUTINE EVLSCPENSNK (SNKBLK) :NOVALUE = 
4 
FUNCTIONAL DESCRIPTION: 
Open a logical Link to the event receiver on the sink node. 
if an error occurs here, close and delete the sink. Something 
s drastically wrong if there is an error here and we do not retry. 
The access function for the Link finishes up in EVLSOPENDONE 
and further errors are handled there. 
FORMAL PARAMETERS: 
SNKBLK Address of the sink block 
IMPLICIT INPUTS: 


WN OOENOUNS 


IMPLICIT OUTPUTS: 
NONE 


ROUTINE VALUE: 
COMPLETION CODES: 


NONE 
SIDE EFFECTS: 
NONE 


SESSSSSSSS SOOOCOOOL SESS 


> i ee 


FAW eSCeONOURUN—IS 


PAAAOAAAOAAO 


BEGIN 


LOCAL 
: REF BBLOCK, 
STATUS 


ao 


Pointer to a sink block 
Status return 


SNK = .SNKBLK; 
IF .SNK CSNKS$V_STS_OPN) 


-SNK CSNKS$V_STS_BSY) 
THEN 
RETURN 


Set local pointer 
If its already open, 


or somethings going on 


Just ignore this call 


IF_.EVLSGL_LOGMASK CELGS$V_SNKOPN) 
THEN 


Log open events? 


BEGIN 
hair ts ! Log this open attempt 
7 EVL$_LOGOPNT, 2 ! Message and 2 parms 


ec ee eh eee we me ee ee lt ed ed ad ed ad et = ad 2 ds 2 2 Ss 8 


seseccescececeres 
VISSBNVE ARO a 
(NII AIA RPOROPOROPORONOROPORIPUROIUNIN 38 8 tt 9 


“ 


SNK CSNKSL_SNKLEN, Ncb address 


M12 
EVLTRANS vent Logging Transmitter 16-Sep-1984 01:35: VAX-11 Bliss-32 V4.0-74 Pp 4 
vO%-000 VLSOPENSAK “open a Link to @ Sink Node e=8eei 188s 93:58 ee Peale tee eb seeSevi reaws.0320%°" coos 
: 7 ? ! and zero for current time 
END 


_— = SASSIGN 


DEVNAM = ZASCID "_NET:' 
CHAN = SNK CSNKSWONETCHAN] 


Assign a channel to net 


SSSRIEARS 


AUININAWAAPIPININIW BE WWIII NAIA IAI APPIN NIPUPINI I 


vuv0v0 


Se i i i be | 


SPW 


Place channel in sink block 


IF STATUS If that worked 
THEN 


MEUM —OODONOUS wT 


BEGIN 
SNK pexsy.sTs oe = hing F ! We have a channel tied up 
SNK ESNKSL ROUTINE = EVLSOPENDONE; i Set the work routine 


sb Ps td 8 at 


I 
STAT ! and open the logical Link 


LSC_ASYNCH_EFN 
SNK CSNKSW_NETCHANI, 


ACCESS, 
NK” CSNK$W_10SB8), 
EVLSASTWORK, 

t 


SNK 
SNK$L_SNKLENJ 


Bz 


The channel 

access a link 

Place status here 

Use the command ast routine 
and the sink block is param 
The ncb is in the sink block 


S 
o 


vuvuVvVUUUUDU 
~ Uv? Pe NOM 
NMmOMNO 
amunn 


Pa Diy Site Sy i i Sy ye i | 
n” 
2 


PRP LP RRL 


DWONAUSWN "OO OBNOULS WN OOM 


END 


ca EVLSNETERROR (EVLS$_OPNSNK, .STATUS, 0) ! If any error 


IN. WWI I iPonononononononofnongd 


Mark for delete and 


V_STS_CLS] = TRUE; 
SNK) Close the Link 


SNK CSNKS s 
EVLSCLOSESNK (SN 


END 
ELSE 
SNK CSNKSV_STS_BSY] = TRUE; 


END; 


Mark as busy 


a ee 


Be Ge Se Se Se Se Se SF Se SF Se Ss Se Oe Ge Se Oe Se Oe Se SF Se Ge Se FHSS Se SHS5 Se SESH Se Se Se Se Sears 
a ke kk ed kd ad a td od 8 = 
PUPS & 


=O ODN WN $ O OONOAUFS WN “OVO ONOULS WT 


S 


-PSECT S$PLITS,NOWRT,NOEXE,2 
00 -BLKB 2 
00 00 00 3A 54 45 4E SF 088 P.AAP: .ASCII \ WE] 3)g0><0><0> : 
O18 0005 P.AAO: .LONG 17694725 3 
0000000° 94 ADDRESS P.AAP 
-EXTRN SYSSASSIGN 
-PSECT S$CODES,NOWRT,2 


000C 00000 EVLSOPENSNK: 
Save R2,R3 g 


4 ac 00 Hove SNKBLK, SNK : 1883 
4 gt AS Be $8008 MOVAB 46(SNKS, R3 : 1689 


3; Routine Size: Routine Base: 


Transmitter 
Open a Link to a Sink Node 


6 
CF 
30 
000000006 
00 
A 
0000" 
90 
A 
63 
A2 0000v 
30 
0000v 
oc 
7E OA 
00 
000000006 
CF 
é 
CF 
63 


Ww 


Nooo 


NOOO MOM ONMPININ MIM POM IM MH 2 O& MHI & MOI — — 


ON MNODINOO FWP OUMNPF NIOOOOE SP SIIO@WOyYS 


o 
™~™ 


N 1 


a 


— 


A 


ed ed ed ed oh 
@BLMmmO 


—"DOOMOMDON—Mmw@w 


FOLDOOODOSS SMOG RWROLMMOOMWOM™ :oOwmvoo"fl—OW 
NOP INOYD 


SOOSCSCSSCOOSOSOOSOOSOSGOSOOOOSOSOSSOOSOOOOSOOOOOOO 


SWONS OMNIS NOW OOSTFT ON VNOOMNO OWVOOOOMMm 
COOOooooooooooooooooooo 


OGOOOCOCOSSOSCOSOOCOSOOSOSOSOSOOOSOOOoO 


SCODES + O7ED 


2 

ep-1984 235: 
Hat 94:33:28 
(R3), 4$ 

#i, (R3), 4$ 
#1, EVLSGL_LOGMASK, 1$ 
-(§p 

48 (SNK) 


fw 
nw 


#EVLS_LOGOPNT 
#4, LIBSSIGNAL 


10(SNK) 
#4, SYSSASSIGN 
STATUS 3 


#1, (R35) 
EVLSOPENDONE, 20(SNK) 
=(SP) 


-(SP) 

48 (SNK) 

-(SP) 

SNK 
EVLSASTWORK 
12(SNK) 

#50 

10(SNK), =(SP) 
#12, SYS$QI0 
=(SP) 

STATUS 
#EVLS OPNSNK 

#3, GULSNETERROR 
RO, 3$ 

#16, (R3) 

NK 

#1, EVLSCLOSESNK 
#2, (R3) 


VAX-11 Bliss-32 V4.0 


reg Page 
DISKSVMSMASTER:CEVL.SRCJEVLTRANS .B32; 


1732 


n 


S= 
a" 
»@ 

Ss 
z 
yn 

mm 
oe 


13 
Logging Transmitter 16-5¢ -1984 01:35: VAX-11 Bliss-32 V4.0-74 P 5 
PENBONE ® Finish Up the Sink Open 1 =30 71382 9:33:89 TEKSUMGMASTERSCEVE SRCTEVLTRANS.B320% 7" (24¢ 


ZSBTTL ‘EVLSOPENDONE Finish Up the Sink Open‘ 
ROUTINE EVLSOPENDONE (SNKBLK) :NOVALUE = 


Plate 


'4 


144 
: FUNCTIONAL DESCRIPTION: 


Oo 
wm 


This is the work routine which handles the completion of an 
aqeees function on a logical Link to an event receiver on a 
sink node. If any error occurred, then wait for a while before 
trying the open again. ALl errors are logged by sign 
If no error occurred, then call the write event routine to 
start writing events to the sink node if any have been queued. 
! FORMAL PARAMETERS: 

SNKBLK Address of the sink block 
IMPLICIT INPUTS: 

NONE 
IMPLICIT OUTPUTS: 

NONE 


ROUTINE VALUE: 
COMPLETION CODES: 


NONE 
SIDE EFFECTS: 
NONE 


alling them. 
n 


SSNS SS SS 
169 69 09 C8 SII NIN ISIN NNO OO 
WN —ODONOUSWN OO 
>> PPP PP 
PUPPIES EEE EEE Oe 
NOUS —OOONOUS UTD $ 


SSN SSNS SSS 
OOOO OWMMOMC” 

AOC 

UEWI—O0e 


SAN 


ooono 
SELES 
009 SII SINNINSINIOOO 


SSSA SSS SAPNA S SONAR UN OOo 


UPLIT (-60*10*1000*1000, -1) ! open again = 1 minute 


Sorencs 


LOCAL 
SNK : REF BBLOCK, ' Local pointer to sink block 
STATUS ' Local status 


ONOUS WOOO 
Sinn Bin pi pian ea pien rn, penn i Bi i Bi in Bi i Sn i pepe pm_ pp p  | 


SNK = .SNKBLK; ' Set the local pointer 
IF NO ' If there was an error 
EVLSNE TERROR ' Report it and 
(EVL$_OPNSNK, TRUE, SNK CSNK$W_I0SB) ) 


GIN 
m 


ee a a ce ce ce ce ee ee ce ce ee ae ce cee ee cee ce ee ce ce ce ce ee ee ee ec ee ce ce ce ee ce ee ee ee ee ed ed ed eed ed ed ed 
ce ae ce ce cee ee Oe ee ee ce cee ce ce ce ce ee ee ee ce ee ee ce ee ee ee ee ee ce ee ce ee ee ce ee ee ee ee ce ce ee ee ed eed ed 


1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
BIND 
OPENWAITTIME = ! Time to wait before trying 
4 
4 


Be Se Se Se Ge Ge Se Se Fe Se Se Ge GHTS Gs Se Ge Se Fe Ge Ge Ge Ge Ge Ge Ge Gs Ge Ge Ge Ge Fs Ge Gs Se Ge Se Ge Se Fe Se FF Se SFG Se Se Se Sse Sse Se Se Se Sse eeeees 


Oe ed ed ed ed 
> > > > > > i) 


3. 
co 


T 
STATUS = WKQSADD_TIMED_WORK ! Schedule close to reopen 
( ! sink later 
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EVLTRANS Event Logging Transmitter 16-50 =1984 01:35: VAX-11 Bliss-32 V4.0-74 Page 57 R 
yO4~000 EVL SOPENDONE > Finish Up the Sink Open 1 ~3007 138% 94:33:39 DISKSVMSMASTER: CEVL.SRC EVLTRANS.B32:1° (245 Vv 
: 1 38 1799 4 EVLSCLOSESNK, ! Routine to activate : 
3 1 1800 4 SNK, ! Its parameters ‘ 
; 1821 1801 4 ! Dummy parm . 
:1 : 1 2 4 OPENWAITTIME, i Time to wait : 
3 1805 4 SNK ' Timer Request id : 
: 1824 1804 4 3 
3; 1825 1805 4 3 
s 1 $ 1 “) THEN F 
: +} f et SIGNAL (EVL$_WKQERR, 0, .STATUS) ! Signal something wrong : 
: 1829 1809 ELSE : 
3 is ) 1319 3 
; 1831 181 SNK CSNKS$V_STS_BSY] = FALSE; ' Link is not bus $ 
; 18 ; 1818 EVLSWRITEVT (.5NK) ' No error, so write events : 
; 18 181 END $ 
3; 1834 1814 1 END; ; 
-PSECT S$PLITS,NOWRT,NOEXE,2 3 
FFFFFFFF DC3CBAOO0 00098 P.AAQ: .LONG <-600000000, -1 $ ; 
OPENWAITTIME= P.AAQ 
-PSECT S$CODES$,NOWRT,2 
0004 00000 EVLSOPENDONE : 
WORD Save R2 : 1743 
52 04 AC DO 00002 MOVL SNKBLK, SNK 3: 1790 
OC A2 9F 00006 PUSHAB 12(SNKS : 1793 
4 DD 00009 PUSHL #1 F 
00000000G 8F DD 0000B PUSHL rt OPNSNK 3 
FE20 CF 3 FB 00011 CALLS 45, EULSNE TERROR ; 
28 0 €8 00016 BLBS RO, 1$ 3 
2 0D 00019 PUSHL SNK : 1803 
0000' cf 9F 0001B PUSHAB OPENWAITTIME : 1798 
5 D4 OO0T1F CLRL -(SP) : 
5 4 0021 PUSHL SNK : 1800 
0000V CF F 000 3 PUSHAB EVLSCLOSESNK 3 1798 
0000G CF 9 Fe 8 CALLS #5, WKQSADD_TIMED_WORK : 
1D 0 €8 0002C BLBS STATUS, 2$ ; 
30 0D 4 F PUSHL 3: 1807 
E D4 1 CLRL - : 
000000006 af DD 00 3 PUSHL ove WKQERR 
000000006 00 3 FB ? CALLS #3, LIBSSIGNAL 3 1795 
2E A2 9g in rh 18 BICB2 #2, 46(SNK) : 1811 
DD $3 PUSHL NK : 1812 
FE2B CF 01 FB 4 CALLS #1, EVLSWRITEVT F 
04 4C 2%: RET > 1814 


3; Routine Size: 77 bytes, Routine Base: $CODES + 0876 
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EVLTRANS Event Logging Transmitter 1e-5¢ -1984 01:35:56 VAX-11 Bliss-32 V4.0-74 Page 58 

y04~000 EVESCLOSEENK” Close Link to @ Sink Node 1eagee TSBs 93:38:88 Mehl st eae tur skcSeverrans.03204%" coos 

: 1 1815 1 ZSBTTL ‘EVLSCLOSESNK Close Link to a Sink Node’ : 
3 ; ! ! ! ROUTINE EVLSCLOSESNK (SNKBLK) :NOVALUE = : 
3; 1 1818 1 !4+ ; 
3 : : : 1 : } FUNCTIONAL DESCRIPTION: ‘ 
3 1 § 1821 1! Close the logical Link to a sink phock by deassigning the channel ; 
: 1 1 § 1! to and F This causes an abort. This is preferrable to a deaccess ‘ 
> 1844 1 1} function to the netece and is certainly much simpler for us. ‘ 
3; 1845 18246 1! There are evidently theoretical problems associated with synchronous : 
3 7 § 1825 1! disconnects on logical Links. The abort is guaranteed to work : 
3 3 1 $ 1 : correctly. The outstanding read in the rece ver gets an ABORT ; 
5 } 3 : ! status on its read and simply breaks the Link. : 
3; 1850 1 : 1! When the Link is broken, if the sink block has BEL ere or CLoSe status ; 
3 1 2) 1 77 set, deallocate the sinkblock since we are done with it. Otherwise 3 
3; 1 g 1831 1! call writevt to reopen the Link if any events are waiting. : 
3 182 1 ¢ 1! This mechanism allows us to temporarily close down links to sink nodes F 
: 1854 i 1! which are very seldom used. If a Link has not been used in some time, 3 
3 1932 1s 3 : simply calling closesnk will close it until events are queued to it. : 
3; 1857 18 § 1! If the Last sink block is closed, we set a flag to indicate we are not F 
: 1858 1837 1! doing any work now. The main Line may elect to exit if nobody is 3 
3; 1859 1338 1! doing any work. 3 
3; 1860 1839 1! 3 
: 1861 1840 1 ! FORMAL PARAMETERS: P4 
3 1866 194) 1! 3 
; 186 1 ¢ 1! SNKBLK Address of the sink block 3 
3 1864 18435 1! F 
3; 1865 H+ 94 1 ! IMPLICIT INPUTS: 3 
> 1866 1845 1! 3 
3; 1867 1846 1! NONE 3 
3; 1868 1847 1! 3 
: 1869 1848 1 ! IMPLICIT OUTPUTS: 3 
3; 1870 1983 1! 3 
3 1871 1850 1! NONE 3 
; 1876 1851 1! 3 
3; 187 1836 1 ! ROUTINE VALUE: F 
3 1874 1853 1 ! COMPLETION CODES: F 
3 1922 1854 1! 3 
3 1 6 1855 1! NONE 3 
3 19? 1 28 1! 3 
3; 1878 1857 1 ! SIDE EFFECTS: 3 
3; 1879 1 8 1! 3 
. % 1 1! NONE F 
: 1881 1860 1! 3 
3 1 ¢ 1861 1 !-- 3 
3 1 1 ¢ 1 3 
3 1 1 BEGIN : 
: 1885 1 $ 
3 1 1865 LOCAL 3 
31 1 SNK : REF BBLOCK, ! Pointer to sink block 3 
3 H r4 ' STATUS ' Local status return 5 
:1 1 : : 
: 1891 1870 SNK = .SNKBLK; ! Set pointer to sink 3 
3 1892 1871 IF .SNK CSNK$V_STS_OPN) ! If sink is open : 


DD 
z 
yn" 


13 
ing Transmitter 18-50 -1984 01:35: VAX-11 Bliss-32 
NKe Close Link to a Sink Node 1 ~300 71382 93:33:29 DISKSVMSMASTER: 


Pe 


SBSELESRS. 8 
vvv 


a a ak a a tk a tt a at ws at = 2 2 = = a 2 2 ts SS 2 2 Sd 1 2 8 


wr 


38 


SeesoE 


IF .SNK CSNKSV_STS_TMRI 
THEN 


OOO0000MMC ~ 


Doh Deb eh sh sh ole] 
ar Per Per Per Per Por Per Pe Per Prd 


DONOVUEWN “OVOONOULSWN oO 
OO 000 000000009000009 00 Co 


ee a a ek ee ee a ed ed ed ed 2d od od wd = dd 
$3338 
o S 
wm 


DOE AOGOOOOOOOOONOO 


Wiss 
Sesss 
NOD 


wine 


BEGIN ! Deassign channel to net 
inte = SDASSGN ! to close logical Link 

cee = .SNK CSNKSW_NETCHAN] ! Channel is in snk block 
EVLSNETERROR (EVLS$_NETDAS, .STATUS, 0); ! Report but ignore error 
SNK CSNKSV_STS_OPNJ = FALSE i Link is not open 


The close could have been called by a timed work or for other 
reasons such as the database entry for the sink went away. 

If the timer bit is set, the timer may be running. We cannot 
findout if it was the timer that called us or no -.$0 we must 
try to cancel the timer entry. If one is outstanding and we 
deallocate the sink block, bad news when it goes off. 


If the timer is running 
Cancel the work item even 


if it is what called us. 
Clear the bit 


BEGIN 
WKOSCANCEL_TIMED WORK (SNK); 
SNK SNKSV~STS_TAR] = FALSE 


-SNK CSNK$V_STS_DELJ 
c -SNK CSNKS$V_STS_CLS) 
EVLSDEALLOCSNK (.SNK) 


If Link is to be deleted 
or closed 
Deallocate the sink block 


BEGIN 
SNK_CSNKSV_STS_B8SY) = FALSE; 


poreeeg active now 
EVL SURI TEVT (. SNK) s 


Otherwise check for events 
and if so open Link to write 
them out 


-EXTRN SYSSDASSGN 
000C 00000 EVLSCLOSESNK: 
. WORD 


Save R2,R3 
5 MOVL NKBLK, SNK 
MOV 6(SNK5 R3 
1D Bac 8=—._—sn(R’3),,-:18 
43 MOVZWL VOCStix) (SP) 
000000006 0 CALLS “ SYS$DASSGN 
PUSHL STATUS 
PUSHL eV NETDAS 
Foc2ss¢ CALLS #3, EVLSNETERROR 


0-74 
OSRCTEVLTRANS .B3204° (25 
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EVLTRANS vent ing Transmitter 16-Sep-1984 01:35: VAX-11 Bliss-32 V4.0-74 Page 
yO%-000 EVESCLOSEONR® Close Link to @ Sink Node erent Eee Mb SRee TIS UWRMASTERSCEUC SRC TEVLTRANS.03204%" (25s 
6 8A 7 BICB2 #1, (R3) : 1879 
OA $3 o} E1 A 1$: BBC Ag (Ry . 2 + 189 
DD PUSHL + 189 
00006 CF 1 FB CALLS #1, WKQSCANCEL_TIMED_WORK : 
63 9 BA 000 BICB2 #32, (R3) + 1896 
04 6 EO 00038 2$: BBS #3, (RS), 3$ + 1900 
08 63 4 €1 0003¢ BBC #e. (R3). 4S + 1902 
2 DD 00040 38 PUSHL SNK + 1904 
F8EB CCF 07 FB 0004 CALLS #1, EVLSDEALLOCSNK : 
04 004 RET : 
63 A 00048 4$ BICB2 #2, (R3) + 1907 
DD 0 B PUSHL + 1908 
FDD8 =F FB 00040 CALLS #1, EVLSWRITEVT : 
04 00052 RET + 1912 


; Routine Size: 83 bytes, Routine Base: S$CODES + 08C3 
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13 
EVLTRANS Event Logging Transmitter 18-5¢ -1984 01:35: VAX-11 
vO%~000 EVE SALLOCBBK> Allocate a Data Block 1 ~3ep-19 4 94 :33:2¢ DISK$VM 
; 1935 1 13 1 ZSBTTL ‘EVLSALLOCDBK Allocate a Data Block’ 
3 13 } 1 ; GLOBAL ROUTINE EVLSALLOCDBK (DBKSIZE, PRED, DBKRTN) = 
3 19 1 te 1 44 
3 19 1917 1 ! FUNCTIONAL DESCRIPTION: 
: 1940 1318 1! 
: 1941 191 1! Allocate a data block with a specified size and link it into a 
3 1308 1920 1! queue in a specified place. If there is an error, signal it and 
3 194 1921 1! then exit. 
3: 1944 19 § 1! 
3; 1945 19 1 ! FORMAL PARAMETERS: 
3 1268 1924 1! 
3: 1 1925 1! DBKSIZE Size of data block 
$ 1268 19 § 1! PRED Predecessor in the queue 
3 4 13 i : : DBKRTN Address to return address of allocated dbk 
3: 1951 1929 1! IMPLICIT INPUTS: 
g 1326 1930 1! 
3; 195 1931 1! NONE 
3 1954 19 ; 1! 
; 1955 19 1 ! IMPLICIT OUTPUTS: 
3 1338 1934 1! 
3 195 1935 1! NONE 
3 I3e8 19 1! 
: 195 VG 1 ! ROUTINE VALUE: 
3; 1960 1938 1 ! COMPLETION CODES: 
: 1961 1939 1! 
; 1308 1940 1! Routine returns true if entry is first in the queue 
; 196 1947 1! 
3: 1964 1306 1 ! SIDE EFFECTS: 
3; 1965 1945 1! 
3 1308 1944 1! NONE 
3: 196 1945 1! 
: 1968 1208 1 !-- 
3 1362 1947 1 
; 1970 1948 BEGIN 
: 1971 1949 
3 1306 1950 BUILTIN INSQUE ; 
3; 197 1951 
3 1974 1336 LOCAL 
; 1975 195 STATUS ' Hold on to status here 
> 1976 1954 DBK : REF BBLOCK i Local for the data block 
3; 1977 1955 3 
3 1378 1328 
3; 197 19 F NOT 
5 1289 1938 sane = LIBSGET_VM (DBKSIZE, DBK) ) ! Obtain a block of data 
3 19 1960 BEGIN 
3; 19 1961 SIGNAL (EVLS_INSFVM, 0, .STATUS); ' Unable to obtain memory, 
7 19 1968 4 SEXIT (CODE = EVLS_INSF vm) i Its fatal so exit. 
3; 1985 196 END 
iB sg: 
3; 19 1208 CHSFILL (0, .DBKSIZE, .DBK); ! Zero the eree 
7 19 196 DBK COBK$W.SIZE) = .bBKSIZE: i Set the size in the block 
3 1 1208 -DBKRIN = .DBK; ' Return the address 
: 1991 196 INSQUE (.DBK, .PRED) ! Place on the queue 


<z 
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os 
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; Routine Size: 


Sai: 


H 13 
Event Logging Transmitter on3e =1984 VAX-11 Bliss-32 V4. 2 
EVE SALLOC OBR” Allocate a Data Block 1o2808-13Re 9}: 33; § DISKSVMSMASTER: CEVL. OC RCSEVLTRANS.B32, qe 48 
197 
1339 ¢ END; 
-EXTRN SYSSEXIT 
2 0 ENTRY EVLSALL OCORK.. + gave RZ2,R3,R4,R5,R6,R7 3 1914 
57 000000006 D MOVL #EVLS_INSFVM 3 
5€ C SUBL2 #4, SP : 
¢ 1) C PUSHL S : 1958 
A F PUSHAB DBKSIZE é 
000000006 00 F CALLS @# LIGSGET vA : 
16 é 18 BLES STATUS, 1$ ; 
0D 1B PUSHL : 1961 
3 04 10 CLAL (SP) : 
0D iF PUSHL R7 é 
000000006 00 ; a] 1 CALLS #3, LIBSSIGNAL F 
DD 8 PUSHL 3: 1962 
000000006 00 01 FB 002A CALLS tf SYSSEXIT 3 
56 +3 B 0031 1$: MOVL e 3 1966 
00 6E 4 C : H movcs (SP), #0, DBKSIZE, (R6) : 
08 A6 04 AC 60 00 MOVW + gg OF — : 1967 
0c BC 56 D0 epee MOVL R6, @ : 1968 
50 04 00044 CLRL : 1969 
08 BC 66 OE 00046 INSQUE (R6), @PRED é 
9s 12 0004A BNEQ 2s F 
5 D Bepee INCL RO : 
04 OO04E 2$: RET 3: 1971 


79 bytes, Routine Base: S$CODES + 0916 
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09 ing Transmitter 16- 
EALLOCDEK Deallocate Data Block 14- 
8 


ZSBTTL ‘EVLSDEALLOCDBK Deallocate Data BL 
GLOBAL ROUTINE EVLSDEALLOCDBK (DBKADR) :NOV 


'¢ 


e+ 
! FUNCTIONAL DESCRIPTION: 


Deallocate a data block. This size is in the data block. 
The data block is removed from the queue first. 


i FORMAL PARAMETERS: 
DBKADR Address of the dbk 
i IMPLICIT INPUTS: 
NONE 
IMPLICIT OUTPUTS: 
NONE 


ROUTINE VALUE: 
COMPLETION CODES: 


ck’ 


13 
8een The b:88 ee GhASteRc ete saCTevLTRANS.a3204%" «26 
ce] 
ALUE = 


> ete ee 
OOCONAWNE IPD S 


a ee a a a ed a a a a a a a a ad ed ede «86 TUE 
SIP IPI IAIPIPIPINIPIIININ LY a dk dd dd tt 


Oe ee ee ee te ee 


NONE 
SIDE EFFECTS: 
NONE 
BEGIN 
BUILTIN REMQUE ; 
LOCAL 
SIZE, ! Size of the data block 
DBK : REF BBLOCK ! Local pointer to block 
REMQUE (.DBKADR, DBK); ! Unlink the block 
SIZE = .DBK COBKS$W_SIZE); i Save its size 
LIBSFREE_VM (SIZE, DBK) ! Free its memory 
END; 


0009 .ENTRY EVLSDEALLOCDBK, Save nothing : 1973 
E 04 ¢ SUBL2 #4, SP ; 
E 04 BC OF REMQUE @DBKADR, DBK ; 301 
5 oF po MOVL DBK R > 201 
04 AE 08 AO 3¢ C MOVZWL 8(RO), SIZE : 
SE pD } PUSHL SP > 2014 
08 AE 9F 0001 PUSHAB SIZE : 


50% +000" EVESBEACES oPaeo bax Sostiocete Data Block 1p-Fen-1964 93: 38: 2f NE SSUMSMASTERSCLUC SRCSEVL TRANS. B32; i had 28} y 
000000006 00 02 fe ooei8 a LS #2, LIBSFREE_VM : 2016 


; Routine Size: 30 bytes, Routine Base: SCODES + 0965 


Be Se ee Se Se ee Se Se Se Geese 


K 13 
-Sep- Mn 


EVesA HORAK Scenerat AST Routine to Queue Work 132300- 1382 93:33:39 D 


Liss-32_v4.0=74 2 5 
EVLSAS BHASTER pqge 383 


X-11 : 
SKSVMSMASTER: CEVL.SRCJEVLTRANS.B32 


17 1 XZSBTTL ‘EVLSASTWORK General AST Routine to Queue Work’ 
: 1 ROUTINE EVLSASTWORK (ASP) :NOVALUE = 


14 


144 
! FUNCTIONAL DESCRIPTION: 


This routine is called + an AST routine on the coneheg Tee of 
an 1/0 request of some kind. The parameter is an ASP block 

ock (these have the same header format). This block 
has a routine address in the header which is the address of the 
routine to gqueve as work. The ASP block is passed as a parameter 
to the routine. No erecess ia or error checking is done at me 
level. This 9 nizes all operations and avoids any possibility 
of race conditions with AST routines. 


FORMAL PARAMETERS: 


MEAN OCONEE 


3 1 $ 
3 j 3 
3 1 3 
3 i! 3 
3 7 | 5 
3 1! 3 
3 1! 3 
; 1! 3 
3 1! $ 
3 1! 3 
3 1! : 
3 1! : 
3 1! $ 
: z. 3 
3 1! 3 
3 5 } : ASP Address of ASP block ; 
$ 5 : : IMPLICIT INPUTS: : 
3 O38 1! NONE F 
3 039 1! s 
HY 040 1 ! IMPLICIT OUTPUTS: é 
3 041 1! 3 
3 ek 1! NONE 3 
3 045 1! 3 
3 044 1 ! ROUTINE VALUE: 3 
3 53 045 1 ! COMPLETION CODES: 3 
: $0 83 4 i NONE 
3; 20 $48 1! F 
3; 20 049 1 ! SIDE EFFECTS: é 
3: 207 050 1! 3 
3; 20 051 1! NONE 3 
; 20 B26 : 3 3 
3; 20 0535 1 !-- 3 
3: 20 b2e 1 3 
3; 20 55 BEGIN ; 
3 B29 3 
3 05 MAP 3 
3 058 ASP : REF BBLOCK ; 
3 B28 3 : 
: a6 LOCA aTUS ; 
3 O68 3 : 
; $e IF .ASP CASP$L_ROUTINE] LSSU 512 : 
: se SIGNAL (EVLS_WKQERR, 0, SS$_ACCVIO) ! Some error occurred : 
; IF NOT : 
: 5 ( STATUS = WKQSADD_WORK_ITEM ! Add item to work queue : 
; Or -ASP CASPS$L_ROUTINE), ' Routine address : 
: 07 ASP, ! First parameter 3 


EVLTRANS Event Logging Transmitter 18-500 VAX-11 Bliss -32 v4. 

y0%-000 EVE SAS TORK Soneral AST Routine to Queue Work 1 ~3007 1382 9}: 33; 3§ DISK$V MSMA TER: CEVL. OS AC TEVL TRANS. 832; Pyee (288 
: 74 0 ! Second paramete 

73 C parameter 

: 21 7 THEN 

. , § 4: SIGNAL (EVLS_WKQERR, 0, .STATUS) ! Some error occurred 

: 21 80 END; 


001C 00000 simeneiin 


«WORD Save R2,R3,R ; 2018 
4 990000 06 af po 99 MOVL #EVLS SeOERR. R4 : 
; 000000006 00 £ 9 MOVAB LIBS$SIGNAL, R3 : 
4 ac D 91 MOVL ASP + 2065 
00000200 =F 14 Ad D1 9 14 CMPL : (R2), #512 ; 
U ; 
1E O001C BGEG $ 
£ Be 0002 eyatt tg) — 
4 OD 09 PUSHL  R4 : 
63 03 FB 4 CALLS #3, LIBSSIGNAL : 
ee aH 
14 A2 OD 09 B PUSHL é (R2) : $073 
00006 CF FB 00 f CALLS i HgasApD _WORK_ITEM : 
69 0 € 90 LBS star US, 2$ ~ : 071 
0 DD 000 PUSHL STA : 2078 
7E D4 000 CLRL ={5P) : 
54 DD OOO3A PUSHL é 
63 03 FB 0003C CALLS aS, LIBSSIGNAL ; 
04 0003F 2s: RET + 2080 


3; Routine Size: 64 bytes, Routine Base: S$CODE$ + 0983 


4 13 
5 BOO EVP Sk sHOORn Genera AST “Routine to Queue Work 19-208-1382 94:33:29 yrek wv nenas ERecevL OC ACSEVLTRANS B32, 79° (285 


: 21 1 ‘End of module 
3 18 $38) 0 ELDON 

-EXTRN LIBSSIGNAL, LIBSSTOP 
; PSECT SUMMARY 
: Name Bytes Attributes 
; SPLITS 198 NOVEC,NOWRT, RD ,NOEXE,NOSHR, LCL, REL, CON,NOPIC,ALIGN(2) 
; SGLOBALS 2 wove WRT, RD .NOEXE,NOSHR, LCL, RL, CON,NOPIC,ALIGN(O) 
s NS 4 NOVEC, WRT, RD ,NOEXE,NOSHR, LCL, "EL. CON,NOPIC,ALIGN(2) 
3; SCODES 2499 NOVEC,NOWRT, RD, EXE,NOSHR, LCL, REL, CON,NOPIC,ALIGN(2) 


Library Statistics 


ey ee ee Symbols -------- Pages Processing 
$ File Total Loaded Percent Mapped Time 
:* s SSSDUAZB Sita 13231 9776 19 0 581 00:01.0 
: ~$255$D ee 1279 § 0 63 00:00.9 
; .$255$0 VC COBS TEV TBRARY. L323 1 191 5 27 14 00:00.2 
3 ~$528spUA STEVE: OBJ JEVCDEF .L32;1 213 18 8 15 00:00.2 
: COMMAND QUALIFIERS 
° BLISS/CHECK=(FIELD, INITIAL, OPTIMIZE) /LIS=LIS$:EVLTRANS/OBJ=OBJ$:EVLTRANS MSRC$:EVLTRANS/UPDATE=(ENH$:EVLTRANS) 
; Size: 2499 code + 193 data bytes 
: 75 pe Y 


3; Run Time: 

3; Elapsed Time: Ie i 
3; Lines/CPU Min: $$ 39 

$ ponenue/ PY Hiias 5" 12 

3; Memor cy le 175 pages 
3; Compi okien Complete 


vi 


NT CORPORATION 
D PROPRIETARY 


D= 
iS a IT) 


os 
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